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KANSAS ENVIRONMENTAL AND RESOURCE STUDY: 
A GREAT PLAINS MODEL 


SPECTRAL AND TEXTURAL PROCESSING OF ERTS IMAGERY 

PREFACE 


A procedure Is developed to extract cross-band textural features from ERTS 
multi-spectral scanner imagery. Evolving from a single-image texture extraction 
procedure which uses spatial dependence matrices to measure relative co-occurrence 
of nearest neighbor grey tones, the cross-band texture procedure uses the dis- 
tribution of neighboring grey tone N-tuple differences to measure the spatial inter- 
relationships, or co-occurrences, of the grey tone N -tuples present in a texture 
pattern. In both procedures, texture is characterized in such a way as to be invar- 
iant under linear grey tone transformations. However, the cross-band procedure 
compliments the single-image procedure by extracting texture information and spectral 
information contained in ERTS multi-images. Classification experiments show that 
when used alone, without spectral processing, the cross-band texture procedure 
extracts more information than the single-image texture analysis. Results show an 
improvement in average correct classification from 86.2% to 88.8% for ERTS image 
no. 1021-16333 with the cross-band texture procedure. However, when used to- 
gether with spectral features, the single-image texture plus spectral features perform 
better than the cross-band texture plus spectral features, with an average correct 
classification of 93.8% and 91 .6%, respectively. 
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I. INTRODUCTION 


A procedure is developed to extract textural features for automatic 
analysis of ERTS multi-spectral scanner imagery. Previous work (Haralick, 1973; 

Haralick, 1972) indicates that useful textural features can be computed from the co- 
occurrence matrices for grey tones in specific spatial relationships on an image. The 
performance of the land-use classification algorithm using these textural features from 
only one band is encouraging; up to 75 per cent of the images were correctly classified 
(Haralick, 1973). Since textural features and spectral features of ERTS multi-images 
provide different kinds of information, a significant increase in identification accuracy 

will occur when both features are used together. 

Adoption of the texture procedure for multi-images leads to excessive amounts 
of storage for the grey tone N-tuple co-occurrence matrices. Therefore, to solve the 
storage problem we measure grey tone N-tuple differences instead of grey tone N-tUples 
and assume an ellipsoidally symmetric functional form for the co-occurrence distribution 

of multi-image grey tone N-tuple differences. 

It is expected that the estimated parameters of the ellipsoidally symmetric 
distribution will lead to textural features that can distinguish between texturally 
distinct categories on ERTS MSS images over Kansas. In order to obtain more texture 
information, the dimensionality of the grey tone N-tuples was increased from the original 
four MSS bands by the addition of cross-band product terms for higher order components. 
This procedure for cross-band texture analysis of multj-images provides a natural extension 
of the single-image texture analysis while retaining its advantages: invariance under 
translating and scaling transformations, low storage requirements,and direct propor- 
tionality between the number of operations required to process an image and the number 
of resolution cells present in an image. 


Jl. TEXTURE 

Texture and tone are two fundamental patterr. elements used in the interpretation 
of image data. The concept of tone is concerned with tlie whiteness, greyness, or 
blackness of resolution cells of the image. The concept of texture is concerned with 
the spatial distribution of the grey tones. Tone is based upon the varying shades 
of grey of the resolution cells in the image, while texture is based upon the spatial 
distribution of grey tones. However, texture and tone are not independent concepts 
but are intrinsically reloted to one another. Although either property can dominate 
the other depending upon the image context, texture and tone are always present. 

When one attempts to objectively use tone and texture pattern elements, the 
texture-tone concept must be explicitly defined. This can be visualized as follows. 
When a small orea patch of an image has little variation of features of discrete 
grey tone, then that area is dominated by tonal properties. As the number of 
distinguishable features of discrete grey tone increases within the patch, then the 
texture properties Will dominate. The size of the small area patch, the relative 
sizes of the discrete features ond the number of distinguishable discrete feotures are 
all crucial in this distinction. When the size of the small area patph is reduced to 
one resolution cell, the only property present is tone. When there is no spatial 
pattern in the tonal features and the grey tone variation between features is wide, 
a fine texture results. And as the spdtial pattern becomes more defined using more 
and more resolulion cells, then a coarser texture results. 

Texture can be termed as being fine, coarse, smooth, rippled, mottled 
irregular, or lineated. Texture is a property of nearly all surfaces, the grain of 
wood, the v/eave of fabric, the pattern of crops in a field, etc. Although texture 
is quite easy for humans to recognize and describe, it is quite subjective by its 
noture and is extremely difficult to precisely define and analyze by digital computers. 
Since the texture of images contains important information for discrimination purposes, 
textural features could be very useful. 
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111. REVIEW OF PAST WORK ON TEXTURE 


To date there hcis been at least six different approoches to the problems of 
measuring and characterizing texture of images: autocorrelation functions, optical 
transforms, digital transforms, edge-ness, structural elements, and spatial grey tone 
co-occurrence probabilities. The first three approaches all measure spatial frequency 
either directly or indirectly. Spatial frequency is related to texture because fine 
textures are rich in high frequencies while coarse textures are rich in low frequencies. 

One alternative approach to viewing texture as spatial frequency distribution 
is to view texture as the amount of edgeness per unit area. Fine textures have a 
high number of edges per unit area whereas coarse textures have a small number of 
edges per unit area. 

The structural element approach uses a matching procedure to detect the 
spatial regularity of shapes called structural elements in a binary image. When 
the structural elements themselves are single resolution cells, the information 
provided by this approach is the autocorrelotion function of the binary image. By 
using larger and more complex shapes, a more generalized autocorrelation can be 

computed. 

The grey tone spatial dependence approach characterizes texture by the 
spatial distribution of its grey tones. In coarse textures the distribution changes 
only slightly with distance, but for fine textures it changes rapidly with distance. 

Because of our familiarity with the concepts of spatial frequency and edgeness, 
these approaches to texture characterizations are readily employed. However, 
on inherent problem exists with these approaches in regard to grey tone calibration 
of the image and they are not invariant under even a linear grey tone translation. 

And the price paid for invariance by compensating with quantization is a loss of 

grey tone precision in the quantized image. 

The pov/er of the structural element approach is that it emphasizes the shape 
aspects of the discrete tonal features. Weakness of this approach lies in that it 
can only do so for binary iniages. 

The power of the spatial grey tone co-occurrence approach lies in characterizing 
the spatial inter-relationships of the grey tones in a texture pattern in such a way 
that is invariant under monotonie grey tone transformations, • Weakness of the approach 
lies in failure to capture the shape aspects of the discrete tonal features. 
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IV. TEXTURAL FEATURES 


The above description of texture is an idealization of what actually occurs, 
a gross simplification. Discrete tonal features are actually quite subjective in 
that they do not necessarily stand out as entities by themselves. Therefore, the 
texture analysis presented here is concerned v/ith more general or macroscopic 
concepts rather than discrete tonal features. The procedure developed by Haralick 
(Haralick, 1972) for obtaining the textural features of an image is based on the 
assumption that the texture information on an image 1 is contained in the overall 
spatial co-occurrence relationship which the greytones in the image I have to one 
another. More specifically, we assume that this texture information is adequately 
specified by a set of spatial grey tone dependence matrices, which are computed for 
various angular relationships and distances between neighboring resolution cell 
pairs on the image. All of the textural features are then derived from these angular 
nearest neighbor spatial grey tone dependence matrices. 

IV . 1 Spatial Grey Tone Dependence Matrices 

Let G = {0, l,...,Ng} be the set of possible grey tones that each resolution 
cell can take on after image normalization by equal probability quantizing to Ng 
levels. It can be shown that this quantization guarantees that images which 
are a monotonic transformation of one another, such as lighter or darker images 
due to variations in film, lighting, or development, will produce the same results. 

Let Nx be the number of resolution cells in the horizontal direction and Ny the 
number of resolution cells in the vertical direction in the image to be analyzed so 
that Lx= {1, 2,...,Nx} and Ly = {1, 2, ...,Ny) are the horizontal and vertical 
spatial domains. Then Ly x Lx will be the set of resolution cell? of the image. 

And the image 1 can be represented as a function which assigns some grey tone in 
G to each resolution cell or pair of coordinates in Ly x Lx; I:Ly x Lx->-G. 

Essential to our conceptual framework of texture are four closely related 
measures called angular nearest neighbor grey tone spatial dependence matrices. 

The concept of angular nearest neighbor for a resolution cel! is the adjacent resolution 
cell for a given angle, as shown in Figure 1 . 



135 degrees f 


90 degrees 



45 degrees 
0 degrees 


FIGURE 1 . Eight- nearest neighbor resolution cells of cell . 

Resolution cells 1 and 5 are the 0-degree nearpt 
neighbors to resolution cell resolution cells 2 and 
and 6 are the I35~degrce nearest neighbors, etc. 

Note that this information is purely spatial, having 
nothing to do with grey tone values. 

We assume that the texture information in our image I is contained in , 
the overall or "average" spatial relationship which the grey tones in image 
I have to one another. Specifically, we shall assume that this information is 
adequately specified by the matrix of relative frequencies Pij with which two 
neighboring resolution cells separated by distance d occur on the image, one 
with grey tone i and the other with grey tone j. These matrices of spatial grey 

tone dependence frequencies are a function of the angular relationship between 

the neighboring resolution cells as well as a function of the distance between 
them. Figure 2 illustrates the set of all horizontal neighboring resolution cells 
separated by distance 1 . This set along with the image grey tones would be 
used to calculate a distance i horizontal spatial grey tone ccroccurrence matrix 
Formally, for angles quantized to 45° intervals the unnormalized frequencies 

k-m=0, |l"n| =d, l(R/l)-i/ 
k-m=d, l-n= -d) or -d, l-n=d), 

|(k,l)=I, l(m,n)=|} 

Ik-rr|=d, l-n=0, l(k,l)='/ 

(k-m=d, l-n=d) or (k-n>^ -d, l*n-= -d) 

I(k,l)= if l(m,n)= i! 

Note that these matrices are symmetric; P(i, j; d, a) = P(j, i; d, a). The 
distance xnetric P implicit in the above equations can be explicitly defined by 
C((k, 1), (fii, n)) = max llk-ml , ll“iiil • 


are defined by; . 

P(Mrcl,0°)^ '■ l((k,l),(m,n))e (LyXL^)x(LyXLj | 

P(l,i,d,45°)= '■ j(Cr^,l)/(m,n))c (LyXL)x(LyXL^)|(! 

P(i,i,d,90°)= ^j(0'/n,(m,n))c (LyXL^)x(LyXL^)l 
P(i,i,d,135°)= -^i((k,l),(m,n))c (LyXLjx(LyXL^)l 
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(3,2) 

(3,3) 

(3,4) 
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(4,2) 

(4,3) 

(4,4) 


Ly= {1,2,3,41 
L.= It, 2,3, 4 


''h = 


1(0,'), 0,2)), (0,2), 0,')), (0,2), 0,3)), (0,3), 0,2)), 

(0,3), 0,4)), (0,4), 0,3)), ((2,'), (2,2)), ((2,2), (2,')), 

((2,2), (2,3)), (2,3), (2,2) , ((2,3), (2,4)) , ((2,4), (2,3)), 

((3,1), (3,2)), ((3, 2),. (3,1)), ((3,2), (3,3)), ((3,3), (3,2)), 
((3,3), (3,4)) , ((3,4), {3,3))v ((4.1), (4,2)), ((4,2), (4,1)), 

((4,2), (4,3)), ((4,3), (4,2)), ((4,3), (4; 4)) , ((4,4), (4,3))} 


OEIGMAIi- vmB 13 KK)B 


FIGURE 2. Illustrates the set of all Distance | Horizontal 

Neighboring Resolution Cells on a 4x4 Image, 
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For an example of »lic four distance 1 grey tone spatial dependence matrices , 
consider Figure 3. Figure 3-a represents a 4 x 4 image with four grey tones, ranging 
from 0 to 3. Figure 3-b shows the general form for any grey tone spatial dependence 
matrix. For example, the element in the (2,1)-st position of the distance ] 
horizontal matrix is the total number of times two grey tones of value 2 and 1 
occurred horizontally adjacent to each other. To determine this number, we count 
the number of pairs of resolution cells in such that the first resolution cell of 
the pair has grey tone 2 and the second resolution cell of the pair has grey tone 1 . 

Figure 3-c through 3-f shows all four distance 1 grey tone spatial dependence matrices. 

From the grey tone dependence matrices a set of 17 textural features is derived. 
The equations defining these 17 features are given in Appendix 1. To illustrate the 
significance of these features, three are defined as follows: 



N^.l 


'12 ^ ) 


OF THE 

OBIGMAL PAGE IS POOR 


N N 

^ ^ niM -u V 

^3 




where 


= number of resolution cells pairs,- and V and o are the mean and 


standard deviation of the marginal distribution defined by 


N 




i“i 

and p y and a ^ are 
defined by: 

N_ 


the mean and standard deviotion of the marginal distribution Py 
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Figure 3-a. Figure 3-b. This shows the general form of 

ony grey tone spatial dependence 
motrix for an Image with integer 
grey tone values 0 to 3. '*'(1,]) 
stonds for number of times grey 
tones i and j have been neighbors. 
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Figure 3-c. 
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Figure 3-d. 
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To explain the significance of these features, let us consider the kind of values they 
take on two different land use category images. Figure 4 shows the digital printout 
of two sub-images of size 64 x 64 resolution cells (approximately 8.5 square mile 
area) from MSS band 5 of 1002-18134, see Figure 10. The image shown in 4 (a) 
belongs to the grass land category and the image in Figure 4(b) is mostly water. 
Values of the features f , , f,2' ^3 

The angular second moment feature (ASM), f, , is a measure of homogeneity 
of the image. In a homogeneous image, such as shown in 4(b), there are very few 
dominant grey tone transitions. Hence, the P matrix for this image will have fewer 
entries of large magnitude. For an image like the one shown in Figure 4(a), the 
P matrix will have a large number of small entries and hence the ASM feature which 
is the sum of squares of the entries in the P matrix will be smaller. A comparison of 
the ASM values given below the images in Figure 4 shows the usefulness of the ASM 

feature as a measure of the homogeneity of the image. 

The contrast feature, f^2' obtained as a difference moment of the P matrix 
and is a measure of the contrast or the amount of boundaries present in an image. 


Since there is a large amount of boundaries present in the image 4(a) compared to 
the image shown in 4(b), the contrast feature for the grassland image has consistently 

higher values compared to the water body image. 

The correlation feature, fg, is a measure of linear grey tone dependencies 
in the image. For both the images shown In Figure 4, the correlation feature is 
somewhat higher in the horizontal (0°) direction, along the line of scan. The water 
body image consists mostly of a constant grey tone value for the water plus some 
additive noise. Since the noise samples are mostly uncorrelated, the correlation 
features for the water body image have lower correlation values compared to the 
grassland image. Also the grassland image has q considerable amount of linear 
structure along 45° lines across the image and hence the value of the correlation 
feature is higher along this direction compared to the values for 90° and 135 
directions. 

The various features presented here are all functions of distance and angle. 


The angular dependencies present a special problem. Suppose image A has features 
a, b, c, d for angles 0°, 45°, 90°, and 135° and image B is identical 
to A except that B is rotated 90° with respect to A. Then B will have features 
c, d, a, b, for angles 0°, 45°, 90°, and 135 ° respectively . Since the texture 
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Figure 4. Textural Features for Two Different Land Use Category 
Images. 
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context of A is the some as the texture context of B, any decision rule using the an- 
gular features a, h, c, d must produce the same results for c, d, a, b, or for that mat- 
ter b, c, d, a (45° rotation) and 6, a, b, c, (135° rotation). To guarantee this, we 
do not use the angularly dependent features directly. Instead, we merge the four arrays 
by summing corresponding elements. The merged array is then used for computing the 
17 texture features defined in Appendix I. 

TV. 2 Textural Features for Multi-Images 

Results of previous work in texture using the spatial grey tone dependence matrices 
as the basis from which all textural features are extracted has been very encouraging 
(Haralick, 1973). The good performance of these texture features can be seen by the 
results of the classification experiments. The computational aspects of the procedure 
are also notable. The number of operations required to process an image using the spatial 
grey tone dependence matrices is directly proportional to the number of resolution cells, 
N, present in an image. In comparison, the number of operations needed to use Fourier 
or Hadamard transforms to extract texture information are of the order of N log N . And, 
to compute the entries in the spatial grey tone dependence matrices, one needs to keep 
only two lines of image data in core at a time, keeping storage requirements to a min- 
imum. 

Even with these advantages, however, the extraction of texture information 
from multiimages, as In the case of ERTS MSS data, forces a new approach to the 
measurement of grey tone N “tuple co-occurrences. The use of the spatial dependence 
matrices requires that they be stored In the computer. For multi-images containing 
grey tone N“tuples, we have too many possible grey tone N-tuples which can 
neighbor each other and as a result, the dependence matrices will be very large. For 
example, for four MSS bands In which each grey tone can range through 64 levels, 
each matrix would have 64^x64“^ elements. Even using the symmetry of the matrices 
to reduce the number of entries does not help since there would be on the order of 
10^^ entries. 

The spatial dependence matrices, however/ provide a way of escape. In 
using these matrices, it was observed that they are heavily weighted along the 
diagonol with decreasing entries farther from the diagonal. Figure 5 gives an 


example of one of these matrices. Note that the number of entries decreases 

as we move away from the diagonal . This suggests that neighboring resolution 
cells ore similar. Choosing any resolution cell in an image at random, we are s 

very likely to find nearly identical neighbors to the cell in all directions and less j 

likely to find dissimilar neighbors. Clearly, a measure which indicates how similar j 

the neighboring N"tuples are and how fast the similarity drops off with distance | 

must contain textural information about the object imaged. | 

It is therefore reasonable to measure the difference between neighboring j 

grey tone N-tuples and observe this distribution Instead of computing the j 

number of times each N"tuple neighbors every other N"tuple. In both cases we j 

measure the co-occurrence of nearest neighbor grey tone N tuples. 

Since the textural features are based on the spatial dependence of grey tone j 

N-tupIes, our first step must be to define a binary relation between neighboring jj 

resolution cells on which the co-occurrence of grey tone N-tuples can be counted. | 

As above, let Lx = (1, 2, . . .,Nx} and Ly = {1, 2,...,Ny> be the set of column | 

and row indexes, respectively,so that Ly x Lx is the set of resolution cells in j 

the image. Let G = (0, 1, . . .,Ng} be the set of possible grey tones that each r 

component of every grey tone N-fuple can be assigned. Then, the image I can j 

be defined by I:Ly x Lx ">■ GxGx. . «xG. | 

Let R be the set of all pairs of resolution cells in a specified spatial relation. | 

Then R' is a binary relation on the set Ly x Lx; RC(Ly x Lx) x (Ly x Lx). For example, | 

the set of all distance 1 horizontally neighboring pairs of neighboring resolution , 

cells would be defined by; . j 1 

I 

R = |^(k, 1), (m, n)) e (Ly xLx) x (Ly x Lx) 1 k-m =0, ll-nl=l} . 

The co-occurrence frequency of grey tone N-tuples (i^, 12 /.../'^) | 

in spatial relation defined by R is \l| 

V »| ((k, I), (m, n))eRlI(k, l) = (i^, .. ./?N)Vl(m/n)=(j,, . 

P (('^ f • • • / (j|/ • • *I*R I 


where ^ denotes the number of elements in the set. y 

Note that this R is symmetric. Assume that ((k, 1), (m, n)) is in R 
k-m =0, and ll-n1 =1 from the definitions of R. But ll-nl -1 when |n-ll 
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FIGURE 5. Example of Nearest Neighbor Grey Tone 

Dependence Matrices, Taken from Processing 
ERTS Data. 
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And if In-ll =1 and k-m =0, t'nen ((m, n), (k, l))is in R. Thus, R is symmetric. 

In fact, by the symmetry of any distance function, R, in general, must be symmetric. 
And since R is symmetric, P is also symmetric. 


IV. 3 Textural Feature Extraction Procedure 

Let R be a symmetric binary relation pairing nearby neighboring resolution 
cells. We define the frequency of grey tone N'tuple differences co-occurrmg in 
the spatial configuration defined by R as 


P(^|/ 


R as 

h\\ 

((•/ j)/ (m, n))cR I 

I(i, j) -I(m, n) =Vn' 


^R 


Note that P is an even function since 


P(x^ , X2, • • • 


I 


((i/ j). (m, n))cR 1 I(i, n) j /*^R 


= # 




= # 


((I, n))cR"’l I(i, j) -Km, n) 

({m, n), (I, j))eR 1 I(i/ j) “Km, n) /''R 

((m, n), (i, j)j^Rll(m, n) ~I(K j)~\ ^n/ 

I 

= P(”Xi, "X2, • • • f * 


/^R 


Referring to the monotonic behavior of nearly every column in the matrices 
of Figure 5, and assuming that this behavior occurs on every band of the ERTS multi- 
images, it is reasonable to assume that the even frequency distribution P(X(, . . .,Xj^) 
of the nearby grey tone N “tuple differences can be adequately approximated using 

an ell ipsoldally symmetri'c distribution; thus we may write 

P (X|, X 2 , • • ‘ f ~ Ax) 

for some monotonicolly decreasing function f. 


U 



This implies that only the function f one! t^ie matrix A need to be determined. Wc 
toko f to be one of Ibe two forms Figuro 6 is o scotlcrgrom 

of the differences for the first two bands of distonce 1 horizontally neighboring 
resolution cells of o 64x64 sample image. Figures 6 and 7 clearly show the 
ellipsoidal ly symmetric functional form of the distribution of neighboring differences. 

In Appendix II N“dimensiona| spherical coordinate systems and cilipsoidally 
symmetric distributions ore discussed and it is shown that the matrix A is proportional 
to the inverse covariance matrix of the N"tuple differences. Thus, v/e estimate A by a 
matrix proportional to the Inverse of the estimate for the covariance matrix. 

Therefore, if the image is blocked into subimages of small area so tlnat each 
subimage is essentially of one category, we can expect the distribution of grey tone 
N*-tuple differences over each subimage to be a function only of the assumed form 
of the function f and the covariance matrix of the difference vectors for grey tone 
N*-tuples in a specified spatial relationship within the subimage. This leads us 
to consider textural features for multi-images based upon the elements of this 
spatial -spectral covariance matrix. 

Consider each covariance matrix as a vector. Consider the distribution of the 
-set of covariance matrices from the blocked image. Since the entries of the covariance 
matrix are the parameters of the distribution, we would like to have these entries 
invariant with respect to scale changes on the grey tone N -tuple differences. In 
order to do this, we scale the grey tone N-tup!e differences so that all components 
have variance 1 . The covariance matrix of these normalized differences is equivalent 
to the correlation matrix. Appendix III shows that this normalization procedure 
makes the covariance matrix Invariant v/ith respect to translating ond scaling 
transformations on the grey tone N-tuples. The normalized covariance matrix can be 
considered as an extracted texture feature vector in an N(N“1)/2 dimensional hyperspace. 

Initial classification experiments indicated a need for more textural information 
and in order to provide this the dimensionality, N, of each resolution cell was increased 
from the four provided by the four MSS bands to eight by appending higher order teims 
and cross-band product terms for each cell. The resultant increase in correct classification 
accuracy can be seen in section VII. 
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V. GROUND TRUTH ASSIGNMENT PROCEDURE 


For all classification experiments, the only method available to determine ground 
truth was based upon the 9 inch by 9 Inch ERTS image transparency. Initially, the land” 
use category names were determined with the aid of two photo interpreters and, when 
available, contour maps published by the U. S. Geological Survey. 

After the categories to be used were decided upon, each F.RTS image was processed. 
The image was blocked into 64 x 64 subimages for texture analysis on MSS band 5 and 32 by 
32 subimages for cross"band texture analysis of MSS bands 4 thru 7. The ERTS Retrieval 
Program was then used to printout a picture of the same area that was processed. This 
was subdivided into 64 x 64 subimages. In this way, the location of each subimage 
was known and could be fairly accurately determined on a 7 Inch by 7 inch print. Then, 
on the basis of its location, the subimage is assigned a ground truth category. Figure 8 
shows a picture printout by the ERTS Retrieval Program for a portion of image 1021 16333 
(see Figure 12) over Kansas City. The picture has been blocked into 64 x 64 subimages 
and by refering to the original image in Figure 12, each subimage was assigned a ground 
truth category. 

Figures 8 and 12 also illustrate the major problem with ground truth assignment. 

This is the determination of ground truth when a subimage covers more than one ground 
truth category. The irregular boundary atound the urban area of Kansas City makes 
ground truth assignment difficult. The deciding factor was the amount of area within 
the subimage from each category. The subimage was assigned to the category which had 
the largest area within its boundary. For this reason the accuracy with which the location 
of every subimage is determined becomes very important, and the picture printouts from 
the retrieval programs aided in this. 

Since the starting and ending image row and column coordinates were known, 
the Retrieval Program could use the same coordinates for the picture printout. This 
printout could then be accurately divided into 64 by 64 subimages. The actual location 
of these subimages could then be determined fairly well, although it is sometimes difficult 
to locate objects in the printout that are on the original image. To aid in this, a few 
of the well defined objects were used to construct a 64 by 64 grid on the 7 inch by 7 inch 
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Figure 8. Printout of a Portion of Image 1021-16333 Over 
Kansas City by the ERTS Retrieval Program for 
Use in Ground Truth Assignment. 





print. When there was a question in the ground truth, the printout could be referred to 
for the more accurate subimage location. The size of the subimage also relates directly 
to the accuracy with which its location on the print can be determined. It was found 
that 32 lines by 32 points per line was about as small as a subimage can be for good 
occuiv.cy in ground truth assignment. 


VI . IDENTIFICATION PROCEDURE 

In the classification experiments two different classification algorithms were 
used, a Bayes classifier and a piecewise linear classifier. The Bayes classifier assumes 
0 multivariate normal distribution and randomly choses pattern vectors for the training 

set where the piecewise linear classifier does not. 

The problem of developing procedures for categorizing environmental units 

consists of the following. 

With reference to Figure 9 , the Universe 0 consists of environmental units 
(for example rocks) U^, U2. . . which belongs to one of R possible categories 

C^, C2/ . . ./ Cj^(different land use categories). Of the large number of environmental 
units present in the universe, we observe a smaller subset of units U^, U2, . . . /Uj^. 
Our observations consist of a set of measured values of n features f^, f2/ • • 
each unit U sampled. Based on the Information contained in the feature vectors F^,F2, 
...,F , the categories of the environmental units which produce these measurements 

being known, we want to develop an algorithm to identify the categories of new units 

based on the measurements they produce , 
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The decision rule which ossigns categories based onjhc values of feoturcs 
may be irnplemcnled in the feoture space F by partitioning F into various regions 
and assigning categories to new units based on the regions to which their feature 
vectors belong. Efficient partitioning of liie feature space may require complicated 
nonlinear decision boundaries (discriminant functions). Instead of deriving a deci- 
sion rule in the feature space?, we may transform the feature vectors into a new 
spoce X and implement a decision rule in the new space X. By using appropriate 
nonlinear transformations, we may be able to implement nonlinear decision boun- 
daries in ? as linear decision boundaries in X. Sever'd procedures are available for 
deriving linear decision boundaries for partitioning X into various regions, based on 
the information contained in a set of sample patterns X^ ^X^, . . .,Xj^ v/hose cate- 
gories are knov/n . 


Identification Algorithms ; In a widely used algorithm (Fukunaga 1972, Fu and 
Mendel 1970, Miesel 1972), the pattern space X is separated into a number of 
regions using a set of hyperplanes (decision boundaries) v/hose locations are deter- 
mined by the sample patterns. Each regioh is dominated by sample patterns of a 
particular category. When a new pattern is presented for identification, it is 
assigned' a category depending on the region in which Jt belongs. If the new pattern 
X is located In a region dominated by sample patterns of category c., then X is 

clossified as coming from category c. . 

To illustrate the procedure for obtaining the hyperplanes, consider the 
problem of separating the sample patterns X^ ,X 2 / • . belonging to category c. 

MM . I Kk I 


and X 


, X 


,, X belonging to category Cj. We can write the 

" n . J 


linear"ji^crVninont'' function (hy’perpi°ne) which separates the patterns belonging to 
cotegorics c. and c. as 

h.. (X) = V..^X -l v.f>OforXccw " 

ij ij ij 

(X) = Vj.'x f v.?< 

The vector V.. and the scalar v.? are to be determined from the information contained 
on the sample patterns. 

If we introduce a new form to express the pattern vectors as 
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z==l-i 
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for Xec. 


-X 1 


for Xec. 
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( 


then the discriminant function con be written os 

h.. (Z) = wJz / 0 0) 

ij «j 

v/hcrc W.. is referred to os a v/cight vector and 

h*. (Z) = wJz = 0 

•J ‘J 

is the equation of a hypcrplane in the transformed feature space. 

The weight vector W.. is chosen so as to satisfy equation 1 for as many 
training patterns as possible . Usually we do not knew the precise form of h.. . But, 
given our knowledge of the categories of the training patterns, we con postulate 
reasonable values g.. (Zj.) for h.. (Z^) and choose W.. to minimize the mean square 

error given by 

n. + n. 


_ , n. + n. T 7 

=-4;r ' ^ ^ • 


Usuallyg.. (Z. ) is taken to be +1 for k = 1 ,2, , . .,n. + n We can rewrite e as, 
IJ In _ «l» * 

1 r \AJ - n * 1 r \/ ' w - i 1 (2) 




(n J + n.T 




where 


Y - [ Z^ ^2 **• ^n. + n. 

I J 


1, and 

®ij "" ^ 9 ;j(Z 2) • • • + n.^ ^ • 


The weight vector which minimizes f ^ given In equation 2 is given by 

Wj. = 

which is the well-known normal equation set from linear least square theory. 

For the multicategory problem involving Nj^ categories, a total of )/2 

hyperplanes must be determined using the procedure described above. After the 
hyperploncs are determined, the classification of new patterns is done as follows. 

For each category c., the number of hyperplones, V., which give a positive response 

when the new pattern X is presented are determined using 

Nr ■ ^ ' 

V. = I w. + w. Jz j > 2/ 




yi 


2lW.Jzl 
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where Z = [^J . 

X is assigned to category Cj if 

V. = max { V; } 

J ! . . . T 

If there is a tie between categories c^ and c^, then X is assigned to c^ if Z^O 

or to c if W < 0. Several modifications of the linear discriminant function 
method"and a"multitude of other classification procedures mcy be found in the 
references cited. 


VII. RESULTS OF CLASSIFICATION EXPERIMENTS 


Tables 1 thru 24 show the results of the classification experiments. Unless 
otherwise stated, the contingency tables are determined using the piecewise linear 
classification programs (RCLASS) given in Appendix IV. In each contingency table 
the number of errors (*^ERR) and percent error (%ERR) is shown for both errors of com- 
mission and errors of ommission . The final entry in the percent error column is the 
average of the percent error for each categoiy . The average correct classification 
is simply the number of correct classifications divided by the number of incorrect 
classifications. The final column in each contingency table (%SD) is an estimate 
for the standard deviation of the probability for correct classification. This was taken 
from Afarani (Afarani, 1972) where he gives an estimate for the variance of the pro- 


bability of correct classification when the sample size is fixed as: 





/ no. W 
Acorrect / \< 


no 
errors 


A 


/ 


(total no,)'' 


where n Is the fixed sample size and n.j is the number of classifications of units 
assigned to category j whose true category is i . Used directly, this gives an es- 
timate over all categories for the entire contingency table. This isihe last entry 
in the percent standard deviation (%SD) column . The remaining entries were deter- 
iViined by fixing i and estimating the standard deviation for each category i . This 
estimate says that as the number of samples tested increases and the number of cor- 
rect classifications increase, the variance of the probability of correct classification 
decreases, as one would expect. 
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In order to obtain an initial estimate of performance of the multi-image texture 
features an experiment was performed on ERTS satellite imagery over Monterey Bay, 
California, image number 1002-18134 (see Figure 10) taken on July 25, 1?72. 

Using a small set of 64 sampled 32 x 32 subimages and training on 34 of these, 80 
per cent of the remaining 30 test samples were correctly classified according to 
four land-use categories: coastal forest, annual grassland, urban area, and water, 
as shown in Table 1. This is encouraging since previous accuracy using spatial de- 
pendence matrices on band 5 with 64 by 64 subimages over the same general area 
was only 70.5 per cent as shown in Table 2 (Haralick, 1973). 

The ability to obtain good ground truth and several distinct categories in the 
California data was not the case for an ERTS image over Finney County, Kansas, which 
was used in later experiments. Approximately a 40 mile by 60 mile section near 
Garden City, Kansas, on image number 1330- 165 15 (see Figure 11), taken on June 
18, 1973, was processed with initially four categories: grassland, large fields, small 
fields, and water. Both texture procedures, using the multi-image texture features 
with 32 by 32 subimages and the single-image texture analysis on MSS band 5 with 
64 by 64 subimages, were used on the image. Tables 3 and 4 show the results of 
classification for distance 1 resolution cells while Tables 5 and 6 show distance 8 
results. In both cases the single image classification is higher. However, when 
both distances 1 and 8 are used together, classification accuracy for both procedures 
is nearly identical, as shown in Tables 7 and 8, about 70 per cent. Tables 9 and 10 
show results using the Bayes Classifier, 

This implies that more information is contained in the single-band texture fea- 
tures than the multi-image texture features. In order to add more texture information, 
a measure of entropy ( Kullbach,1959), given by 

E = log 1 p[ 

where P is the correlation matrix, was added to the cross-band texture feature set. 

Also, higher order components were appended to each grey tone N-tuple by squaring 
the grey tones and getting cross-band product terms. Only a few of these were added, 
increasing the grey toreN-tuple dimensionality from 4 to 8, which results in an increase 
in the number of feature vector components (elements in the correlation matrix) from 
6 to 28 plus the entropy measure . The eight components in each grey tone N-tuple 
are: MSS Band 5, Band 6, Band 7, (Band 5)^, (Band 6)^, (Band 7) , (Band 5) x (Band 6), 


(Band 5) x (Band 7), Figure 13 gives an illustration of a correlation matrix with the 
feature vector component designation to be used in indicating the components selected 
for input to the classification programs. 

Table 11 showi the contingency table for the cross“band texture features using 
9 of the 29 components (1,2,5,6,9,12, 20, 24, and 27 of figure 13)for a portion of 
the Garden City, Kansas, data. The increase in identificotion accuracy between the 
large and small fields results in an increase in overall correct classification, up to 
87.1%. 

The final classification experiment to test the cross-band texture analysis was 
made on ERTS image 1021-16333 (see Figure 12) taken on August 13, 1973, over 
Kansas City. Four land-use categories were chosen: cropland (directly north and 
south of Kansas City), urban area (Kansas City, Topeka), grassland (southwestern 
corner of the image), and water (Perry reservoir plus several small lakes). These 
areas were processed three separate ways: 

1) spectrally, 32 by 32 subimages 

2) textural ly, 64 by 64 subimages on band 5 
and 3) cross-band texturally, 32 by 32 subimages. 

Because of problems with ground truth and a small data set for water, that category was 
later dropped. The spectral processing Involved obtaining the average grey tone over 
the subimage for each spectral band, giving 4 components for each feature vector. 

The textural processing wos over a larger subimage than either the spectral or the cross- 
band textural processing. This was chosen because the 64 by 64 subimages have per- 
formed better in the past than the 32 by 32 subimages for the single-image texture 
analysis . The smaller subimage size was chosen for the cross-band texture processing 
so that the subimage would more likely be from only one category. The cross-band 
texture method uses spectral information which the single-image texture procedure 
does not have available. The smaller subimage size was also chosen for the spectral 
processing in order to provide an estimate of the amount of spectral information con- 
tained in the four MSS bands that is available to the cross-band texture analysis. 

Single-image texture analysis was done for distance 1 nearest neighbors 
at all angles and all of the 17 texture features defined in Appendix 1 were computed 
for each subimage. The cross-band texture processing was also done for distance 
1 using horizontally adjacent nearest neighbor grey tone N-tuples. _ ^ 




Figure II . ERTS Iu.ag. No. 1330 - 16515 (MSS Bond 5) Over Garden City 
Kansas, Taken on June 18, IV/o. 
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Figure 12. ERTS Image No. 1021-16333 Over (MSS Band 5) Kansas City, 
Taken on August 13, 1972. 
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Figure 13. Designation of the entropy measure and elements of 

THE CORRELATION MATRIX AS FEATURE VECTOR COMPONENTS 
FOR CROSS-BAND TEXTURE ANALYSIS OF MULTI "IMAGES . 
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Table 12 shows the contingency table for all 17 single-image texture features 
over image 1021-16333 with an average correct classification of 86.2%. Table 13 
shows the resulting contingency table over the same image for the 29 cross-band texture 
features with an increased correct classification of 88.8%. The spectral processing 
on the four MSS bands for the same image gave four spectral features-the mean grey 
tone over the subimage for each spectral band. The resulting contingency table using 
these four spectral features is shown in Table 14. The relatively good performance, 73 .9% 
correct, shows a significant amount of land-use information is contained in the four 
spectral bands, accounting for the better performance of the crosS^band texture analysis 

over the single-image texture analysis. 

It is interesting to see the classification accuracy of the single-image texture 
greatly improve to 93.8% with the addition of the four spectral features to the original 
17 texture features, as shown in Table 15. As expected, the addition of the four spectral 
features to the first 26 of the 29 cross-band texture features does not improve the classifi- 
cation accuracy as well as with the single-image texture. Table 16 shows the result- 
ing contingency table with an average correct classification of 91 .6%. Note the 
higher estimate for the standard deviation of the probability for correct classification 
with the textural plus spectral features. 

These tables show that the single-image texture procedure does well in extracting 
texture information, but for this data set, the cross-band texture procedure by itself 
performs slightly better by extracting more information textural ly and spectrally. 

The remaining tables show the effect upon classification accuracy of using 
fewer features. In each case it can be seen that the fewer the number of features 
used, the lower the average correct classification. Also, it can be seen that the 
Bayes classifier performs slightly better than the piecewise linear classifier. 

Tables 20 thru 24 show that as the number of components Is increased, the 
spectral plus cross-band texture reaches a limiting accuracy of approximately 92%. 
Ground truth assignment errors could easily account for the remaining 8% error. 

VII. 1 Summary of Classification Results 

It is apparent from these classification experiments that both texture extraction 
procedures complement each other in that they extract different kinds of texture in- 
formation. When used without spectral features, the cross-band texture procedure 
performed better. However, when the spectral features were added, the single-image 

texture plus spectral features performed better than the cross-band texture plus 

spectral features. This indicates that tte cross-band texture procedure does well in 
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extracting more information teXturally and spectrally than the single-image texture 
procedure. However, when the spectral information is made available to tne single- 
iniage texture procedure, it performs better than the cross-band texture plus spectral 

Programs used In these experin[>ents can be found in Appendix IV. The single 
image texture programs are under the Texture Analysis Programs with mainline MAINLN. 
And the cross-band texture programs are in the Cross-Band Texture Analysis Programs 
with mainline SPECTR. RCLASS is the mainline program for the piecewise linear 
classifier. Some of the cross-band texture feature components can be seen in Figure 
14. Figure 14a shows the ground truth assignment for the Image 1021-16333 (Figure 12) 
for the area near Kansas City. At the bottom of the image, grassland was Inserted 
to give an idea of how well the features separate the three categories: cropland, 
urban area, and grassland. 





VIII. CONCLUSION 

The procedure developed here for the extraction of texture information from 
ERTS multi-images gives encouraging results. The classification experiments show 
that the cross-band texture procedure can be used successfully in automatic land- 
use classification of multi-images over Kansas. 

The cross-band texture procedure is a natural extension of the previous single- 
image texture extraction procedure based upon angular nearest neighbor grey tone 
spatial dependence matrices. It retains the power of the previous approach to tex- 
ture by characterizing the spatial inter-relationships, or co-occurrences, of the 
grey tone N-tuples present in a texture pattern in such a way as to be invariant 
under I i near grey tone transformations. And both procedures are simple to employ, 
economical, and require a minimum of core-storage (see Figure 15). 

Both procedures complement each other by extracting different kinds of textural 

information with the cross-band texture procedure using the cross-band spectral infor- 
mation contained in ERTS multi-images. Results indicate that the cross-band texture 

procedure does well by extracting more information texturally and spectrally than the 

single-image texture procedure when used alone. However, when the spectral in 

formation is made available to the single-image texture procedure, it performs bet 

ter than the cross-band texture plus spectral features in classifying texturally distinct 

land-use categories from ERTS multi-images over Kansas. . 
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Cropland 



Urban Area 


Figure 14~a. Graund Truth Map 


Grassland 


Figure l4“b. F(16) 



Figure 14“e. F(29) 



Figure 14~d. F(24) 



Figure 14“c. F(20) 



Figure 14. Examples of Cross-Band Texture Feature Vector 
Components; Resolution Cell bizc is 32 x 32 
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Total Cost Per 

Core Processing Total Resolution 
Required Time Job Cost Cell 


Single-Image 

Texture 

(64X64) 

A3k 

0.788HR 

$223. 

$0.000252 

Cross-Band 





Texture 

25k 

0.884HR 

$216. 

$0.000244 

(32X32) 

1 





Figure 13. Comparison of the Performance of the 
Single-Image Texture Analysis Programs 
ON nSS Band 5 with the Cross-Band 
Texture Analysis Programs on MSS Bands 
^ THRU 7 IN Processing the Same Area, 

Near Kansas City, on ERTS Image No, 
1021-16333 using a Honeywell 635 Computer. 
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Table 1. Contingency table for image no. 1002-18134 using 

MULTI-IMAGE TEXTURAL FEATURES, 6 COMPONENTS. 
AVERAGE CORRECT CLASSIFICATION ON TEST SET-oU.U/o 


FEATURES 

NO. OF SAMPLES IN 
TRAINING SET 

NO. OF SAMPLES IN 
TEST SET 

OVERALL 
ACC JkAlY 
OF TEST SET 

MULTI -I MAGE 
TEXTURAL 

34 

30 

80.0% 

SINGLE- IMAGE 
TEXTURAL 

260 ” ' 

172 

70.5% 


Table 2. Results of land-use 

FROM ERTS IMAGE NO. 
CALIFORNIA. 


classification experiments 
1002-18134 OVER MONTEREY BAY, 


^Unless stated otherwise, all contingency tables are 

DETERMINED USING THE PIECEWISE LINEAR CLASSIFICATION 
PROGRAMS (rCLASS). 
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Tari F 3 Contingency table for image nOi 

MULTI-IMAGE TEXTURAL FEATURES/ 5^§JANCE 1, 6 COMPONENTS. 
AVERAGE CORRECT CLASSIFICATION - bb.t)/o 


FEATURES 

NO. OF SAMPLES IN 
TRAINING SET 
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OVERALL 
ACCURACY 
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Results of land-us 
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-16515 AT DISTANCE 1. 
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Table 5. 


Contingency table for image no. 

MULTI-IMAGE TEXTURAL FEATURES/ DI 
AVERAGE CORRECT CLASSIFICATION 


1330-16515 USING 

STANCE 8/ 6 COMPONENTS. 

63 . 7% 


FEATURES 

NO. OF SAMPLES IN 
^TRAINING SET 

NO. OF SAMPLES IN 
TEST SET 

OVERALL 
ACCURACY 
OF TEST SET 

MULTI -IMAGE 
TEXTURAL | 

548 

364 

63.7% 

SINGLE- 1 MAGE 
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140 

88 

76% 


KESULTS Oh LANU-uat ^ 

FOR ERTS IMAGE NO. 1330-161?^^ AT DISTANCE o. 
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Tabi E 7. Contingency table for image no. 

12 Components AVERAGE correct classification -71% 


FEATURES 

NO. OF SAMPLES IN 
TRAINING SET 

i 

NO. OF SAMPLES IN 
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Table 8. Results of land-use classifica^ 

FOR ERTS IMAGE NO. 1330-16515 USING BOTH 
DISTANCES 1 AND 8, 
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Tari F 11 Contingency table for image no. 1330-16515 using 

9 OF THE 29 CROSS-BAND TEXTURAL FEATURES. DISTANCE 1. 
ItrLn=103, Itest=70, average correct classification 
= 87.1% using the BAYES ^q‘ 97 

COMPONENTS USED WERE: l,Z/b/D/y /1Z/ZU/Z4/Z/ . 
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Table 12. Contingency table for erts image 1021-16333 using 
ALL 17 single-band TEXTURE FEATURES AT DISTANCE 1, 
#train=178/ ^test=116, average correct classification 
= 86 . 2 % 
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13. Contingency table 

FOR ERTS IMAGE- 1021-16333 USING 



ALL 29 CROSS-BAND TEXTURE FEATURES AT DISTANCE 1. 

Strain = 569/ ^test = 376/ average correct 

CLASSIFICATION = 88.8% 
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Table 1^. Contingency table for erts image 1021-16333 using 
SPECTRAL FEATURES ONLY. #TRAIN=564/#TEST=372 
AVERAGE CORRECT CLASSIFICATION = 73.9% 
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Table 13. Contingency table for erts image. 1021-16333 using 
ALL 17 single- I MAGE TEXTURE PLUS THE ^ SPECTRAL 
FEATURES/ 21 COMPONENTS. #TRAI_N=175/ ^TEST-112 
AVERAGE CORRECT CLASSIFICATION = 93.8% 
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Table 16. Contingency table for erts image 1021-16333 using first 


26 CROSS-BAND TEXTURE PLUS THE 4 SPECTRAL FEATURES/ 
30 COMPONENTS. #TRAI N=567/#TEST=369 
AVERAGE CORRECT CLASSIFICATION = 91.6% 
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Table 17. Contingency table for erts image- 1021-16333 using first 

8 OF THE 17 SINGLE-IMAGE TEXTURE FEATURES. 
^train=178/^test=116, average correct classification 
= 8^.5% 
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18. Contingency table for erts image 1021-16333 using first 

9 OF THE 29 CROSSBAND TEXTURE FEATURES. 
/^train=569,#test=376, average correct classification 

= 79.0% 
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Table 19. Contingency table for erts image 1021-16333 using first , 


9 OF THE 29 CROSS-BAND TEXTURE FEATURES. 

^train=562. ^test=374, average correct classification 
= 81.0% USING THE BAYES CLASSIFIER. 
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Table 20. Contingency table for erts image 1021-16333 using first 

6 OF THE 29 CROSS-BAND TEXTURE PLUS THE 4 SPECTRAL 
FEATURES/ #TRAIN=569/ #TEST=367 / AVERAGE CORRECT 
CLASSIFICATION = 84.2% i 
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Table 21. Contingency table for erts image. 1021-16333 using first 
9 OF THE 17sINGLE-IMAGE texture plus the 4 SPECTRAL 
FEATURES/ ^TRAI N=175 /^TEST=112 / AVERAGE CORRECT 
CLASSIFICATION = 92.9% 
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Table 22, Contingency table for erts image 1021-16333 using first t 

11 OF THE 29 CROSS-BAND TEXTURE PLUS THE ^ SPECTRAL I 

FEATURES/ ^TRAI N=56^ /#TEST=372 / AVERAGE CORRECT 
CLASSIFICATION =90.1% 
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Table 23. Contingency table for erts' image. 1021-16333 using first 

16 OF THE 29 CROSS-BAND TEXTURE PLUS THE ^ SPECTRAL 
FEATURES/ ^TRAIN=565 /#TEST=371/ AVERAGE CORRECT 
CLASSIFICATION = 90.3% 
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Table 24. Contingency table for erts image 1021-16333 using first 
21 OF THE 29 CROSS-BAND TEXTURE PLUS THE 4 SPECTRAL 
FEATURES, #TRAIN=568, #TEST=368, AVERAGE CORRECT 
CLASSIFICATION =91,9% 
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APPENDIX I 


TEXTURAL FEATURES OBTAINED FROM THE GREY TONE DEPENDENCE MATRIX 

In this appendix, we define 17 textural features which are computed for each 
of the four cngular grey tone dependence matrices. 


The following notation will be used in defining the 17 textural features, 
P(i/j) " (i/j)^^ ° particular grey tone dependence matrix. 


Py(i) 

#R 


- eptryNjn the marginal distributions of P(i,j) obtained by 
.summing rows and columns of P(i/j) respectively. 


number of resolution cell pairs which were considered in computing 
the entries in P(i,j). 


|vj — number of distinct grey tone values in the image. 

9 

Ui - mean of P0/j)/^l^* 

P 

entry in the distribution of the sum of grey tones of neighboring 
*I*R resolution cells. 

^x-y /-v-i^^ entry in the distribution of the absolute differences in the grey 
\ Jones of neighboring resolution cells. ^ ^ 


TEXTURAL FEATURES 


1 , Angular Second Momenh 


N 

9 _g i ) 2 


i=l j=i 


P(iJ) 


2. Entropy: 


N 

9 9 


- 1 : 5 ; •(=?)'- ff) 


3. Correlation: 


f _i=i j=i 

,3 




where y and ore the mean and standard deviation of and 
,, and a are the mean and standard deviation of P^. 

T y - ‘ 


4, Sum of Squares on x: 
N 

9 9 

i=l j=l 


PQ/j) i 


.•'If 


5 , Product Moment; 


N N 
9 9 






PO/j) 


i=l j=l 


% 
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6 


Inverse Moment; 


N N 

, y _ 1 _ |£iuU 

«=1 j-l 


7, Difference Moment: 


1=1 J-1 


8. Sum Average: 



10. Sum Variance: 

f|Q = variance of ^ y/ '^R 


n , Sum Entropy; 



12. Contrast: 
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APPENDIX II 


N-DIMENSIONAL SPHERICAL COORDINATE SYSTEMS 
AND ELLIPSOIDALLY SYMMETRIC DISTRIBUTIONS 


We sHustrote the N-dimensional spherical coordinate system in the calculation 
of the volume of the N-dimensional hypersphere. Next we show how suitable functioris 
can be used to define ellipsoidally symmetric density functions and we determine the 
normalizing constant for any function. Finally, we show that for any ellipsoidally 
symmetric density f (/x' Ax), the matrix A is proportional to the inverse covariance 
matrix of x and we determine the constant of proportionality. 


lU Volume of an N-dimensional Hypersphere 

Let V be the volume of a N-dimensional hypersphere of radius r^. By 


definition 


■//•••/ 


dX| dx2 


dx 


N 



To evaluate this N-fold iritegral, we transform to spherical coordinates. 
•= r cos 0^ cos ••• ®N-2 ^N-1 

^2 = r cos cos 82 ••• Vl-3 ®N-2 
3E^ “ r cos cos 5 2 ••• ®Is|-2 



• • 


r cos cos 02 **. cos 



r =|Il. (Ij_ 

Figure V6i I lost! ateS the geometry of the spherical coordinate systetn wq use for a 
3-dimensional system. 




The Jacobian J of this transformation 



3x^ 

3X2 

3xn 


3r“ 

3r ••• 

3r 


3Xj^ 

3X2 




30j^ •** 

30 

J *= 

« 




• 

.« 

3Xj^ 

3 X 2 

!!1n 



® Vi* 


cos 0j^ cos 02 ... cos 0j^j^ 

COS 0, 

-r sin 0^ 

cos 02 * . 

.cos 

-r sin 

-r cos 0j^ 

sin 9^. . 

•cos 

-r cos 


is defined by the determinant J. 


cos 0|s^2 ••• 

cos Q 2 ” ‘ ®N-2 ^N-1 * ' •* 

sin 02 ... cos ^_2 sin ... 


sin 

r cos 0 
0 


-r cos cos 02 ... sin 0|^_j^ r cos 0^^ cos © 2 ... cos ^_2 cos 6 |sLj^... 

To find the value of the Jacobian, factor r out of the last (Nh^) 
rows and from each column factor out its first entry. 
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J » r'^ ^ cos^^ Oj^ cos ^ O 2 ••• cos ®2 *** 


N-2 


1 

1 

1 

• 

• 

• 

• 

0 

-tan 

-tan 

-tan 


• 

• 

• 

cot 

-tan 62 

-tan 02 

-tan 

°2 

• 

• 

• 

0 

• 

• 

• 

• 


• 

• 

• 

• 

• 

« 






• 

• 

• 

-tan 

Vs 

• 

• 

• 

0 

•• 

Vs 

cot 

®N 2 

• 

• 

• 

0 

“tan 0 , 

cot 0 ^ , 

0 


• 

• * * 

• 

0 

K-1 

N-1 








Subtracting column 2 from column 1/ column 3 from column 2 
column N from column N~1 there results 


/ •••••• 


0 

0 


0 

0 


0 

0 


, -tan 6j^ -cot 6^^ 
cot i 


1 

cot 6, 


• Vs Vs 

Vs Vs Vs • 

an 9,^.^ -cot cot 0 . * . 


• , Since all entries in the upper left triangle ore zero, the value of the 

determinant is easily found as minus one times ijie product of entries on the lower 

left to upper right diagonal . 


j coJ^““02 ...cos sin 0^ sin 02...sin ®|yj 


Notice that ton Q + cot 9 Now upon simplifying we obtain 


N N-i 'N-2, N-3, 


j » (-1)' r‘ * ;cos' cos O^. • .cos0j^i_2 


and jjj = cos^ ^ 8^^ cos ^ 82 ••• cos ®j^_2 since 


cos 8; > 0 for -Vj2 < 0. < H/2, i=l, 2, . . .N-2- 
i — 1 — 

• In spherical coordinates the volume V of the N-dimensional hypersphere 


of radius r is readily evaluated, 
o 


V = 


n/2 n/2 

I L ... I 


2R 


n 


r<r^ 8 8 


n 


I 


N- 3 . 


N“2* • ft • ja 

r cos cos' 82 «..cos 9 j ^2 ardS^^., 


8., =0 


— o 


r 2 >1-2 2 N-i 


Separating the integrations, 

r n /2 


n/2 


2n 


V = j i^'^dr cos*^ d8^ . . . | 


cos3. . d9 


N-2 “ V2 


de, 




r=0 8^=- 2 


/I II 
2 


e . «o 
N-1. 


n/2 


f N 

1 cos 6d9 




Since 



11,2 Suitable Rinctions for Ellipsoidolly Symmetric Distribution. 

Suppose f is a real function/ defined on domain R/ a subset of (0, “ 1/ 
and satisfying f {\^)> 0 for all U in R and Vi*^f (u)d is finite for k < N+1 . We 
show that f is suitable for defining a ellipsoidolly symmetric density function and 
we determine the constant c so that of (/x* Ax) is an ellipsoidolly symmetric density. 

Let A be a NXN symmetric positive definite matrix and X an NXl vector. 
Consider the ellipsoidolly symmetric function f (/x* Ax). We wish to determine 
a constant C such that of (/x‘ Ax) is a density function. 


It is clear that C = 


/•••/ f Ax^ dx^ • • *dX|^ 


/ x’ Ax €* R 


To determine the value of the integral/ we will make o transfoFfhation which rotates 
and scales. Let T be an orthonormal matrix such that T'AT = D, where D is a 
diagonal matrix. Make the change of variables 

-1 

T 

X = TD^ z. 


The Jacobian J of this transformation is 

lin • • • 22 ^ 


J e 




3 ? 2 ^ ^2 


! 


[■■■ 



TD 


~l/2, 



|t| |d| 




N N N 



Since T is an ortliornormal matrix, lli = 1 and 

IdI = It'atI = |tM IaI ItI = 1a! , 

So the Jacobian is the determinant which is positive since A is positive 

definite. 

1= f ••• f f ^x'Ax ) dx,...dx^ 

^x'Ax € R 

= f ••• f f (Vz'D"^/^T'ATD" ’/^z)dz, . . .dz^ 

Vz'D"^/^T'ATD"’/^z c R 

= IaI"^/^ , /•••/ 

^z'z c R 

Now change to spherical coordinates. 

= r cosS^ cosS., cos9^_j^ 

Zj *= r cos9j^ 005^2 

• « 

z^ - r cos3^ ... cos9^_^ 
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The Jacobian of this transformation 

n/2 n/2 

« # M f 

I “ Ia| 


ion is (-S^rr^^coc^ ^0^^ cos; ».«cos 


2n 


1-1/2 f f 

f 

' j 1 

... 1 j 


f(c)r cos O^cos 02** 


rcR 8i»-n/2 8^2“'"'^ ®N-1 


cos 




n/2 


n/2 


|A| 


-Hi I I cos*^ f 005^^02^3. 


rcR 


ej^«-n/2 Q^-^fl 


n/2 


2n 


- 

I “'‘®N-2 1 '’Vl 

V'° 


n/2 

Since J cos^d0 = 

6 .=-n/2 



rlt±l) r fi’ 

' 2 / \2/ j. the integrals are readily evaluated. 


{¥) 
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» • • 



= _21n) 


N/2 


lAl'/2r(^) 


/ 


f(r)dr 


reR , 


Therefore, the constant c is 


c = 




2(^) 


N/2 f 
reR 


r^"^f(r)dr 


OBIGWM' 


bO 


... 2\“m 

Next we determine the normalizing constant c for the forms e and (I + (j ; . 

Case 1 . Multivariate Normal 

The density function for the multivariate normal distribution is of the form 
f( /’iT'Ax) = e"^’^ 0 ^ x'Ax^oo 

J..2 

, o^r ^ . 


f(r) = e-s-- 


Since 


/r>^'’f(r)dr = dr = |"(2u) ‘ e “du = 2 

r c R . . ° . " 

then the normalizing constant is 


. N-2 N-2 

N~1 ^~^r \ 2 T P 




C = 


M 


ff) 


N 

2w^|Al‘i/r'^''f(r)dr 
re R 

1 


2.^lAl-^2^":#) 


and. 


(27t)2 lAji 

f( /x^x) 


TT 


Cose 2. Multivariate Pearson Type VII . 


(2itF |a[ 


l"5 


■. e 


-^x‘Ax, o^x'Ax< 


f(' /x' A'x ) = (1+ x'Ax) , o ^x'Ax^ j. 

vN-“2 



j'^ du 


,m>^ 


Xial 


— 7 / N\ 

^ \a\~^ V (m-2j 


TT 


and, 


r 

71 2 y 


(1 +x'Axr"‘ , m> 2 , o<x'Ax^ » 


N 


(.-f) 


11,3 Covariance Matrix For Multivariate Distributions. 

Given the density function f (/x'Ax ) we want to find the .^ovariance matrix t 


$ = E(xx’ ) - c J . , . J xx' f (v^Ax )dx| . . . dXj^ 
/x'Ax 6 R 
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where c h o normalizing constant and N is the dimension of Using the orthonormal 
transformation T'AT= D, where D is a diagonal matrix, and scaling with x-TD % 

we have j ^ ^ • • <<^N 


Since 


and 


eR 

1 1 ' — 

•AX = z'd“^T' ATD"’^ z = z' d"^D D^z = z'z 


'his , , t 


J= 


Rearranging, 


Dx, 

®“N 

•I.-- fj 



=It d^HtIIdT^-IdI'^ = IVATl 

a’xY 

»T-.» *1 

_ 

• • J 

-y 

3z 


N 

N. 



=c |A[ ^ D ^ j* . . .J* z z' f (/z^ dz^ ... dzj^ D T' , 
/z'z € R 

where z'z is an N X N matrix. Looking at the off diagonal terms, for i ¥=j, 
j. . .Jzj zj f(v^) dz^. . . dZf^= 0 since we are Integrating an odd 

Vz'z €■ R 

function over even limits. 

For terms of along the diagonal , for i=j, 

j*. .. .J z} f(/^) dz^. . • • • / ^1 f(/?z)dzp .. 

/?i'c R ' v^eR 

and changing to spherical coordinates, 

V2 //2 ^ 2tt 2 2 2 ,/ n N-1 , N-2 

cos fl . • .cos 0K.i_if(r)r i)C 


= / / ^ cos^ 0r * . .cos0^_2*^e^ 


reR Qf ^ e J^_ 2 = 0N-r ° 



®N-r“ 


7 / 


then 


f(/?i)dz,...d2^ * ' f(r)dr 




/k+2 \ 

/N+1\ 

. r(l-) 

/z*z e R reR 

r\ 2 / 

r\ 2 ) 


2tt 


N 

2 


/N 

Nr^2 


f(r)dr. 


re R 


From II. 2, 


c _ 


r ^f) lA^ 

2 tt ^ /r^'^f(r)dr 

rcR 


so that 1 

r 


i = 


N 


2 IT '^/r^‘^f(r) dr 
reR 


IaI"^ TD^ _2I 


fr 

and, ^ = TD"H' 


N + 1 


f(r) dr 


N/i 


f(r)dr 


N 

T 


Nrir) 


Jr'^'^V(r) dr D"2 T' 
reR 


where T‘ AT — D, or P T A T. 


So that 


$=A‘ 




/r^~^V(r) dr 
N/r‘^"^f(r) dr 


Since the integrals are constants for any f, the covariance matrix is directly pro- 
portional to A"^ . We determine the constant of proportionality for the multivariate 
normal and Pearson Type VII distributions. 


C^; 
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Cdse 1. Multivarlal-e Normal 

***7 1 

Foi’ the multivariate normal, the density is of the form f(r) = ce 




r = x‘ 

Ax, o 4s r ^ 00 . 


o k-1 

Since, 

dr = 2- 


N 

then 

f(r)dr =c2^ 


N-2 

and J 

fr f(r) dr = c2"^ 


so that % - A 


-1 2 ^ 2 r \2 


N 2 




and thus, ^ - A ^ 
or, A = ^ ^ . 

Case 2 Multivariate Pearson Type VII. 

f (r) = c (1 + r^) , o 4= r ^ 00 , 


Since 


f N+i« V . _ c r 

Jr 




and - fCt) 


r(r) t(m - 2 ) 
■ rR 


, $=A 


cN /H\ i V 

= A-1 2 r\2)r \m-2 ^1/ 


2N c T 


2 r (m 




("■•r ■’) 


Aiv; 


2 

where 




where A is a diagonal matrix. We must show that the normalized covarionce 
matrix of t 's identical to jly. Normalizing ^ we have 




= D (A ^^A) D 


where D is again diagonal but in this case, 

d..= ' 


II 2 

ith a., the ii"’ element of diagonal matrix A. For the ij"’ element of we 


with 

have 


= d.j a., cr.j a., d.. 
Nij II II «J JJ JJ 


o... o., a 

II ij JJ 


, r 2 r~'~^ ^ 

a.. e*; 

\ II II \ JJ JJ 


= a.„, 

'J 

Thus, this procedure of normalization makes the entries of the normalized covariance 
matrix invariant with respect to tronsloting ond scoling tronsformotions on the grey 
tone N-tuples. 
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APPENDIX IV 

COMPUTER PROGRAM DOCUMENTATION & LISTINGS 

IV. 1 PROGRAM DOCUMENTATION 

IV. 1 "a ERTS Retrieval Programs 
IV.l-b Texture Analysis Programs 
IV.l-c Cross-Band Texture Analysis Programs 
IV.l“d Piecewise Linear Classification Programs 

IV .2 PROGRAM LISTINGS 

iy.2-a ERTS Retrieval Programs 
IV.2-b Texture Analysis Programs 
1V.2-C Cross-Band Texture Analysis Programs 
IV.2-d Piecewise Linear Classification Programs 
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IV.l-a ERTS Retrieval Programs - Documentation 

RETV 

ERTS 

PIXEY 

ZEQUAN 

PITCHR 

WRTDSK 

RDDSKl 

KEQUAN 

RDDSK2 


ERTS RETRIEVAL PROGRAMS 


program TITLE: 


RETV 


^EPEODUCiiilLITY On' TUb' 
'dRIGMAL PAGE iS POOR 


VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 


1 

January / 1974 
January, 1974 
.Robert J. Bosley 
Robert J. Bosley 


PROGRAM LANGUAGE: FORTRAN IV 

IMPLEMENTED ON: HW635 

PURPOSE: 

This is the mainline for the ERTS Retrieval Programs v^hich, 
retrieve ERTS MSS data from standard NASA digital tapes 
and outputs the image data in a picture, or greytone listing. 


or copies It onto art output tape. 


INPUT PARAMETERS under NAMELIST 'FARAM': 

NBAND Band number, 1 through 4 for MSS band 4 

through 7, to be selected. Set to 5 for all 
4 bands, assumed to be 2. 

IRSTRT, Row, column starting coordinates. 

ICSTRT 

IRSTOP, Row, column stopping coordinates. 

ICSTOP 

TITLE 80 Column title for output list. 

MILL! TRUE! f coordinates are in millimeters; 

assumed to be FALSE, coordinates are row, 
column points in ERTS Image. 

SMALL TRUEifmilll meter coordinates are from a small 

70 mm by 70 min negative; assumed to be 

FALSE, coordinates from a 7 inch by 7 inch 
print. 

PRNT TRUE for grey tone listing; assumed false, 

tape true for tope output; assumed false. 


REQUIREMENTS: 


C 


COMMENTS: 


r- 

■ a 

I- 


IFIL 

Output flic code for tape; assumed to be 02, 

PIC 

TRUE for picture output; ossumed TRUE, 

QUAN 

TRUE for equals probability quantizing of the 


image; assumed to be TRUE, 

SPIC 

TRUE for special picture run~see PIXEY; 


assumed to be FALSE, 


1 . ERTS mput tape must be on file code 'ES'. 

2. Four disc files must be on files 11, 12, 13 and 14, 

3. Any output tape must be positioned on file code 'IFIL'. 
All coordinates must be determined relative to the 
input tape rather than the print *■” that is, ICSTOP must 
not e>xeed 824 points or 46 mm, 

5. Core - 22 k 

6. Subprograms required: 

RETV 

ERTS 

PIXEY 

ZEQUAN 

ERTS 

PITCHR 

WRTDSK 

RDDSKl 

KEQUAN 

PITCHR 

RDDSK2 


For efficiency, data is read by RETV in blocks of 41 lines 
by 41 points. One ERTS tape (one"fourth of an image) 
will then be covered by 20 horizontal blocks, leaving 4 points 
left at the end of each line. Note sometimes on the first 
tope of an image, the first four points are grcytones of 255 and 
can adversely affect a picture printout . If so, set ICSTRT = 5, 


< 


Also nofe that- If the poinf ICSTRT Is nof a multiple of 41 
from the end of iho line, tlien the last polnis may not necessarily 
be listed since blocks arc deteimlnod starting from ICSTRT # 

A special picture run can be mads to piint out and reduce 
any imago over the entire tope by setting SPIC to TRUE and 
specifying under namelist PARAM the follov/Ing parameters: 
IRSTRT, IRSTOP, ICSTRT, iCSTOP, N13AND, QUAN.’ Then 
under namelist PICTUR, porameters for PITCHR are specified. 

See PIXEY for details. 
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EPJS RETRIEVAL PROGRAM 


SUBPROGRAM TITLE: 
VERSION: 

DATE: 

UPDATE: 

AUTHOR: 


ERTS 

II 

September, 1972 ,, 
November, 1973 
G. Sunnels 


DOCUMENTED BY: R. Bosley 

PROGRAM LANGUAGE: GMAP 

IMPLEMENTED ON: HW635 

PURPOSE: 

To read 7-track ERTS MSS data tapes. 



ENTRY POINTS: 

CALL EINIT (NOLS) 

' CALL ESKIP (N05K) 
CALL EREAp (I, LN) 
CALL ERE^IjlD 




■ 4 ? 

I ' • 

ARGUMENTS; 

NOLS Number of words per scan line; returned by EINIT . 

'■ NOSK The number of records to skip. 

1 The array into which the NOLS words of data 

from a line of ERTS data is placed. 

LJsj Returned by EREAD giving the line number of the 

line of data returned. If LN =0, the end of file 
was reoched on the ERTS tape. 


ERROR FLAGS: 

MB 



EREAD buffer is not large enough for a block of 
ERTS data. 

EINIT was called tv/ice. 

EINIT was not called before calling EREAD, 
ESKIP, or EREWND. 
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UE 


EOI- encountered while rcocling ID or 
annotol'ion blocks on ERTS tope . 

EOF encountered while trying to skip records 
in ESKIP. 

COMMENTS: 

EINIT initializes the ERTS tope so that data may be read, ond 
must be called first. ESKIP skips over NOSK records (scan lines). 
EREWND rewinds the ERTS tape. EINIT must not be called tv/ice. 
The data placed into array 1 by EREAD is in standard corresponding 
point forms. Since the ERTS MSS data has four cliannels, there 

are actually NOLS/4 points or cells per scan line. 

0 

REQUIREMENTS: 

) ERTS tape must be on file code 'E S'. 


BEPRODUGJoiiLriY OF THid 
OBIGINAL PAGE IS POOR 


. -u: 


ERTS RETRIEVAL PROGRAMS 


SUBPROGRA.M TITLE: PIXEY 

VERSION; iT 

DATE; 

UPDATE; 

AUTHOR: 

DOCUMENTED BY; 

PROGRAM LANGUAGE; 

IMPLEMENTED ON: 

PURPOSE; 

To provide a flexible option for printing a picture of ERTS MSS 
data using user specified parameters to PITCHR. 


January, 1974 
January, 1974 
Robert J, Bosley 
Robert J. Bosley 
FORTPvAN IV 
HW635 


ENTRY POINT: 


GALL PIXEY (ILINE, IMAGE, IRSTRT, IRSTOP, ICSTRT, 
ICSTOP, QUAN, NBAND) 


INPUT ARGUMENTS: 

ILINE Array the ERTS line is read into. 

IMAGE Array containing one line of the image, 

IRSTRT, IRSTOP Starting, stopping row in the image. 
ICSTRT, ICSTOP Starting, stopping column in the image. 
QUAN TRUE for equal probability quantizing of 

the image. 

NBAND Bond number to be processed; set to 

5 for all 4 MSS bands. 


INPUT PARAMETERS: under NAMELIST 'PICTUR': 

LNSKIP, Line and column increment for ERTS data; 

KOLSKP assumed to be 4,3. 
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ICELL, jcai 
I NIT 

IMIN, 1/sAAX 

NROW 

NFILES 

IFIL(IO) 

NULW, NULD 
AMAG, DMAG 


Nuniber of rows, columns in image to bo printed; 
assumed to be 1,256. 

Number of times entry to PITCHR is made at 
SNAP: must be greater than 1; assumed to be 301 
Minimum, maximum greytones iiT image; 
ossumed to be 0,75 or 12 if QUAN is true . 
Number of rows to be printed; equal to ICELL. 
Number of output files available to PITCHR; 
set to 0 for all output on file code 06, set to 2 
for files 06 and 42; assumed to be 2. 

Array containing output file codes; assumed 
to be 06 and 42. 

Number of columns, rows per output page.; 
assumed to be 129, 60. 

Width, length magnification for output picture; 
assumed to be 1 . 


SAMPLE RUN: 

SPARAM SPIC=T, QUAN=T, IRSTRT=1, IRSTOP=1216, 

ICSTRT=5, lC5TOP=772, NBAND=2$END/$P1CTUR 1NIT=304, 
NF1LES=2, LNSKIP=4, KOLSKP=3, JCELL=256$END. 

This run will print out on files 06 and 42 a picture 256 points 
wide by 304 lines long. Note that 1216/4 = 304 end 786/3 = 256 
gives the values for LNSKIP=4, KOLSKP=3, JCELL— 256, 
INIT=304. Also, using these values for LNSKIP and KOLSKP 
will result in a picture in proportion to the same area on an ERTS 
image print, epproximdialy twelve 64 by 64 subimages across ^ 

by 19 subimages down the tape. 


COMMENTS: 

If SP1C=T in the SPARAM card, then a SPICTUR card must follow. 

Nqte that the parameters IR5TRT, IRSTOP, ICSTRT, ICSTOP, 

CiUAN, NBAND are supplied on the $PARAM card while LNSKIP 
KOLSKP and all PITCHR parameters are supplied on the SPICTUR 

card> . \ 

■ : 75 . 


The program will output a negative picture but a positive picture 
can be made by setting IMAX^^O and IM1N“75 (or 12 if quantisation 
is used). The porameters arc initialized to output an area 
approximately twelve 64 by 64 subimages wide by 19 down. For 
a complete description of PITCHR parameters, see PITCHR. 

REQUlREhAENtS: 

1 . Processor time for one band with parameters as shown in 
the sample run is 0.075 hr with 3k lines of output. 

2. Subprograms required are ZEQUAN, PITCHR. 

CALLED BY: 'J 

RETV 
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ERTS RETRIEVAL PROGRAM 


SUBPROGRAM TITLE- ZEQUAN 

VERSION: 1 

September, 1973 

UPDATE: September, 1973 

AUTHOR: Einstein 

DOCUMENTED BY; Robert J . Bosley 

PROGRAM LANGUAGE; FORTRAN IV 

IMPLEMENTED ON; HW635 

PURPOSE: 

To equal probability quantize a large image on disc to NQ levels. 


ENTRY POINT: 


CALL ZEQUAN (LINE, NUMLIN, NUMPPL, NCOMP, ICOMP, 
LEFT, NQ, INFILE, lOUTFL) 


INPUT ARGUMENTS: 

LINE 

NUMLIN 

NUMPPL 

NCOMP 

ICOMP 


NQ 

INFJL 


Array to store one line of the image. 
Number of lines in the image. 

Number of columns in the image. 
Number of components in the image, 
Th© component to be quantized. 
Left-most cell desired in the line. 
Number of quantized levels. 

File code of disc containing the image 
to be quantized. 


OUTPUT ARGUMENTS;^, 

lOUTFL 


Output file code for the quantized image. 
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COMMENTS: 


Processing is done line by line after an InUlai pass tbrough the 
image is made to determine the number of grey tone levels in 
the image. The minimum and maximum grey tones are printed. 
The number of grey tone levels should not exceed 512. Input 
data on disc INFILE must be in binary. 

CALLED BY: 


PIXEY 


r;RTS RCTRIEVAL PROGRAM 


SUBPROGRAM TITLE: 

VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

documented BY: 

PROGRAM LANGUAGE; 

IMPLEMENTED ON: 

PURPOSE: 

To print out images in 13 grey levels. 


PITCHR 

II 

July, 1969 
November, 1970 
R. Cowles 
' G. Elliott 
GMAP 
HW635 


r-'h 

/( 


ENTRY POINTS: 


CALL PITCHR (IRRAY, ICELL, JCELL, INIT, IT, IMIN, IMAX, 
NROW, NFIL, IFIL, NULY/, NULD, AMAG, DMAG,*) 

CALL SNAP 

CALL SNAPA (I ARRAY) 

CALLENDBNR 


ARGUMENTS; 


IRRAY 

ICELL 

JCELL 

INIT 


Array to be printed, either integer or floating 
point. 

Number of rows in array, (row dimension) 

Number of columns in array, (column dimension) 

=0 if all of image to be printed out is in core 
dt time of call. Output will be done before 
return to calling program. 

=1 for reinitialization entry. Aliy of the arguments 

previously specified v/ith INIT = 0 with the 

exception of INIT may nov/ be changed. Return 
v/ill be made to the calling program without 

ony output. This is especially useful if the image 

is read into core in pieces 'bnd the lost piece 

does not completely fill the array. >1 for initialization 
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II 

1^A1N 

IMAX 

NROW 

MFIL 

IFIL 

NULW 

NULD 


cniry. INIT v/ill reflect the number of times 
entry is made at SNAP before final border is to 

be printed. Return is tp the calling routine 
without any output. ' 

INIT =0 is assumed. J 

=0 if array is floating point 
=1 if array is integer 
11 =1 is assumed. 

Ml.nlmum brightness level in array. Type of 
IMIN should correspond to that indicated by II. 

IMIN =0 is assumed. 

Maximum brightness level in array. Type of IMAX 
should correspond to that indicated by II. 

IMAX =12 is assumed. 

Number of rows of array to be printed if full array 
is not to be printed. This allows for partial printing. 
NROW = IGELL is assumed. 

Number of output files available if image is to 
be output in strips that are NULW lines wide. 

=0 for all output on file code 06 
=1 for all output on file code IFlL 
1 ifor outputs in strips, on file codes specified . 
in array IFIL. NFIL=0 is assumed. 

Array containing output file codes. Ignored unless 
NfilL=^ 0. IFIL must be a variable rather than a 
literal, since SNAP alters the value(s) of IFIL 
to contain the location of the relevant file 
control block in the upper half of the v/ord. 

Number columns per output page. MAX -129 
NULW=120 unless otherwise specified. 

- Number of rov/s to be printed before a slew on the 

top of the next page is given. NULD = ICELL*DMAG +1 


AMAG 


DMAG 

* 


Floating point mognification in width. 
AMAG=1 is assumed. 

Floating point magnificalton In length, 
D/v*AG=l isossumed. 

Error return if not enough output files are 
available. Return is made with NARG =-10. 
If not specified, a message will be printed out 
on the accounring report and an NF report 
will terminate execution. 



CRTS RETRIEVAL PROGRAMS 


WRTDSK 

11 

Septernbcri 1972 
January^ 1974 
Roberf J. Bosley 
Robert J. Bosley 
FORTRAN IV 
HW635 

1 

To write one line of CRTS data onto disc files, one file 
for each band. 

ENTRY POINT: 

CALL WRTDSK (lUNE, NHQR, IPSTR, IPEND, NBAND) 

INPUT ARGUMENTS: 

ILINE Array containing one line of ERTS data 

NHOR Number of horizontal blocks of 41 columns 

In the line. 

IPSTR, IPEND Starting and ending points in the ERTS line. 
NBAND The desired band; set to 5 for all 4 MSS 

bands. 

COMMENTS: . 

After reading a line of data into ILINE, RETV calls WRTDSK 
to pick out the segment of NHOR blocks in the line and write 
it onto disc. If only one band is desired, only that band is 
put onto disc. Disc files 11, 12, 13, and 14 must be present, 

CALLED BY; 

" RETV ' ■ 


SUBPROGRAM TITLE: 
VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE: 
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ERTS RETRIEVAL PROGRAMS 


SUBPROGRAM TITLE: 
VERSION: 

RDDS^ POOR 

DATE: 

September, 1972 

UPDATE: 

January, 1974 

AUTHOR: 

Robert J. Bosley 

DOCUMENTED BY; 

Robert J. Bosley 

PROGRAM LANGUAGE: 

FORTRAN IV 

IMPLEMENTED ON: 
PURPOSE:. 

HW635 

. 1 


To read the ERTS data from disc and print out a picture of the 
image, proceeding vertically and then from left to right. 


ENTRY POINT: • . 

CALL RDDSKI (IMAGE, QUAN, NHOR, NVERT, NDSK) 


INPUT ARGUMENTS: 


IMAGE 

Array used to store two 41 x 41 blocks. 

QUAN 

TRUE for equal probability quantization of the 


itnage. 

NHOR 

Number of horizontal 41 x 41 blocks. 

NVERT 

Number of vertical 41 x 41 blocks. 

NbSK 

File code of disc to be processed. 


ERROR FLAGS: 

Same os for PITCHR. 

COMMENTS: 

Sirice blocks arb 41 columns wide, then two horizontal blocks 

ore processed together, except for the final strip of blocks when 

NhlOR is an odd number. It is recommended that QUAN be set 

to true since transmission errors result in very high and very low 

greytoncs along the line which wil 1 make the true image features 

■ indistinguishable unless equal probability quantizing is used. 


SUBPROGRAMS CALLED; 

KEQUAN 

PITCHR 


CALLED BY: 


RETV 


EKTS RETPsKfVAU PROGP.AMS 


SUBPROGRAM TITLE: 
VERSION: 


KEQUAN 


PATE: September, 1971 

UPDATE: June, 1973 

AUTHOR: G. Elliot 

DOCUMENTED BY: Robert J. Bosley / 

PROGRAM LANGUAGE; ' FORTRAN IV 

IMPLEMENTED ON: HW635 

PURPOSE: 

To equal probability quantize the input array to NQ levels, 


ENTRY POINT: 


CALL KEQUAN (lA, NGL, NQ, lASlZE)]: 


ARGUMENTS: 


NGL 

NQ 

lASIZE 


Input arroy which Is returned quantized, 
Number of greytone levels in lA. 
Number of quantizing levels. 

Size of array lA, 


ERROR FLAGS: 


If the number of greytone levels exceeds 512, on error message 
is printed. 


CALLED BY: 


RDDSKl 



rj 



ERTS RETRIEVAL PROGRAMS 


SUBPROGRAM TITLE; 
VERSION: 

DATE: 

UPDATE; 

AUTHOR: 

DOCUMENTED BY; 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE; 


RDDSK2 

II 

Sepfember, 1972 
January, 1974 
Robert J . Boiiley 
Robert J. Bdilcy 
FORTRAN IV 
HW635 







To read ERTS data from disc and print out the grey tones and/or 
copy the data onto an output tape. 

ENTRY POINT: 

CALL RDDSK2 (IMAGE, IRSTRT, IRSTOP, NHOR, NDSK, 
PRNT, TAPE, IFIL) 

INPUT ARGUMENTS^ 

IMAGE , e" Array data is read into. 

IBSTRT, IRSTOP Starting, stopping lines of data. 

fsIHOR Number of horizontal blocks of 41 columns. 

fvIDSfC File code of the disc to be read. 

PRNT true for greytone listing. 

tape true for tape output 

IPIL Output tape file code. 


COMMENTS: 

If neither the grey tone listing nor the output tope is desired, 
' execution is returned to the cal ling program, RETV. 


CALLED BY: 



RETV 


IV.l-b Texture Analysis Programs - Documentation 


MAINLN 

ERTS 

MAING 

KEQUAN 

PITCHR 

FPLXIT 

INDEX 

IMOMJR 

COR 

IEQPQ1 

RITOWf 


Ein S TEXTURE ANALYSIS 




PROGRAM TITLE: 

MAINLN 

VERSION: 

11 

DATE: 

September, 1972 

UPDATE: 

June, 1973 

AUTHOR: 

Robert J. Bosley 

documented BY: 

Craig Paul 

PROGRAM LANGUAGE: 

fortran IV 

implemented ON: 

HW 635 

PURPOSE: j . L. c 

To read the Texture Analysis parameters, read in subimages 

from ERTS input tape, and send these subimages to MAING 

for processing. 


INPUT PARAMETERS: 

Up to 80 columns for use as identification 

1. .Title Card: 

• 

information. 

2, Parameters under NAMELIST /PARAM/: 

IBAND 

Band used for processing- 
= 1 for MSS Band 4 


= 2 for MSS Band 5 
= 3 for MSS Band 6 


= 4 for MSS Band 7 
assumed to be 2 . 

NUMPPL 

Number of points per line of each subimage; 
assumed to be 64. 

NUMLIN 

Number of lines of each subimage; assumed 
to be 64 . 

NBVERT 

Number of the last vertical subimage to be 

processed; a.ssumed to be 36 . 

NUMIM 

Number of subimages taken horizontally in 

one run; assumed to be 3. Note: 

NUMPPL X NUMIM must not exceed 192 po 
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Nil 

The upper- leff column coordinate for the 
vertical strip (of NUMIM horizontal 
subimages) being processed in this run. 

NUMSTR 

The number of the vertical strip being processed; 
assumed to be 1 . 

NBSKIP 

The number of vertical rows of subimages to 
skip before beginning processing; assumed to 
be 0, 

PNCH 

Specifies the output option: 

= IHY for card output 
= IHT for tape output on file code IF 
= IHN for neither card nor tape hut a listing 
of the LEX arrays; assumed to be tope (IHT). 
Note: PNCH must be denoted as a Hollerith 
constant in the $PARAM card. 

IF 

Output tape file code which is assumed to be 


in position (it is not rewound); assumed to be '03 

NRED 

The base used for image reduction; assumed 


to be 1 . 

N START, 

Each subimage is processed NSTART through 

KTIMES 

NTIMES times, each time v/ith a new reduction 
factor NFT = NRED ** NLAYER where NLAYER 
goes from NSTART -1 through NTIMES -1; 
both assumed to be 1 . 

PICT UR 

TRUE for a picture of each subimage; assumed 
FALSE. 

NQUANT 

Number of quantization levels of the probability 
function in IMCMTR; assumed to be 16. 

MERGE 

TRUE for all four LEX arrays to be merged into 
one array; assumed to be TRUE. 
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REQUIREMENTS: 


1 . ERTS inpuf tape must be on file code 'ES'. 

2. Core - 43k. 

3 . Disc file must bo on file code '02'. 

4 . Subprograms required: 

MAINLN 

ERTS 

MAING 

KEQUAN 

PITCHR 

FPLXIT 

INDEX 

IMOMTR 

INDEX 

COR 

lEQPQl 

RITOWT 

CARD SETUP FOR SAMPLE RUN: 


$ 

IDENT 

9999, ANYNAME 

$ 

LIBRARY 

LB 

$ 

OBJECT 

ERTS TEXTURE ANALYSIS PROGRAMS 

$ 

DKEND 


$ 

EXECUTE 


$ 

PRMFL 

LB, R, S, PATTERN/GEE/LIB f 

$■• 

TAPE 

ES, A5DD, 60500, ERTSOO, |NPUT 

$ 

FILE 

02, A2R, 2L ^ 

$ 

LIMITS 

20, 43k,, 10k 

■$ : 

INCODE 

IBMF 

TEST-SETUP FOR TEXTURE ANALYSIS PROGRAMS 

$ 

PARAM 

Nl 1=1, PNCH = THN, PICTUR = T$END 

$ 

ENDJOB 



This run of the texture analysis programs will process the ERTS 

image in 64 x 64 subimages, giving only printed output plus 
a picture of each subimage. 


COMMENTS: 






TMs is ihc mainline of the texfure analysis programs. Each 
ERTS. Image is divided into 4 vortical strips, each put onto a 
7--trock digital tape. This image is divided up into subimages 
for processing. For example, if the subimages are 64 columns 
by 64 lines, then the first tape contains subimages 1 through 12, 
the second contains 13 through 24, and so on up to 48 horizontal 
subimages. And, each tape contains 36 vertical subimages. 
Often, the first 8 points at the beginning of each line have grey 
tones of 255 and will adversely affect processing. Therefore, 
the first eight points of each line are skipped. 

Each tape contains usually 3296 points or 4 bands, or 824 points 
per line for one band. Skipping the first eight points leaves 
816 points por line. If subimages are each 64 columns, then 12 
will occupy 768 columns, leaving 48 points at edge of each 
tape unused. 

Due to core limitations, each input tape is processed in vertical 
strips of up to 192 horizontal points. This is 3,64 by 64 
subimages, or 6^32 by 32 subimages in one run. For example, 
if NUMPPL = 64 and NUMIM =3, then the tape is processed as 
follov/s: Run 1 " (1/ 1)/ (l,r 2), (1, 3), (2, 1), (2, 2), (2, 3), 
(3, 1),...,(36, 1) (36, 2), (36, 3). Run 2 - (1, 4), (1,5), 

(1, 6), (2, 4), (2, 5), (2, 6), (3, 4),..., (36, 4), (36, 5), 

(36, 6). Run 3 - (1, 7), (1, 8), (1, 9), (2, 7), (2, 8), (2, 9), 
(3, 7),..., (36, 7), (36, 8), (36, 9). Run 4- (1, 10), (1,11) 
(1, 12),. ..,(36, 10), (36, II), (36, 12). This completes the 
processing of the first tape. Note that Nil is determined 
relative to the entire image while NUMSTR is relative to the 
input tape. That is, for tape 1, Nil and NUMSTR are both 1 
for Run 1 . But for Run 2, Nil is 4 while NUMSTR is 2 and for 
Run 3, Nil is 7 while NUMSTR is 3, etc. 
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Continuing with the cKOmpIc, tope 5! will be processed as 
follows: Run 1 (Nll= 13, NUMSTil-1 ) - 0 , 13), 0, U), 

(1, 1.5), ...,(36, 13), (36, 14), (36, 15). Run 2 (Nil =16, 
NUMSTR=2)- (1, 16), (1, 17), (1, IB),..., (36, 16), (36, 17), 
(36, 18), etc. 

See Figure 1 for an illustration of an ERTS image divided into 
64 by 64 subimages. Note - the size of each subimage must 
not exceed 4096 points. 
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BEPiiODUCMLITY OF 
'ORIGINAL PAGE IS POOR • 

ERTS IfMGE 


4 Tapes for Each ERTS Image 
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Figure 1 
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SUBPROGRAM TITLE: ERTS 

VERSION: 


DATE: 

UPDATE: 

AITTHOR: 

documented BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE: 


Sepl-ember, 1972 
November, 1973 
G. Gunnels 
R. Bosley 
GMAP 
HW635 


To read 7-track ERTS MSS data tapes. 


ENTRY POINTS: 


ARGUMENTS: 


ERkOIT^FLAGS: 


CALL EINIT (NOLS) 
CALL ESKIP (NOSK) 
CALL EREAD (I, LN) 
CALL EREWND 


NOLS 

Number of words per scan line; returned by ElNlT 

NOSK 

The number of records to skip. 

I 

The array into which the NOLS words of data 


from a line of ERTS data is placed. 

LN 

Returned by EREAD giving the line number of the 


line of data returned. If LN =0, the end of file 


was reochod on the ERTS tape. 


ERE^j^. buffer is not large enough for a block of 

ERT^ da^* 

ElNlT v/os called twice. 

fyjj ElNlT was not called before calling EREAD, 

ESKIP, or eI^EWND. 
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yg EOF encountered wliilc reading ID or 

annotation blocks on ERTS tope, 
gp EOF encountered wliilo trying to skip records 

in ESKIP. 

COMMENTS: 

EINIT initializes the ERTS tope so that data may be read, and 
must be called first. ESKIP skips over N05K records (scan lines). 
EREWND rewinds the ERTS tape. EINIT must not be called twice. 
The data placed into array I by EREAD is in standard corresponding 
point forms. Since the ERTS MSS data has four channels, there 
are actually NOLS/4 points or cells per scan line. 


REQUIREMENTS: 

ERTS tape must be on file code 'ES' . 
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ERTS TEXTURE ANALYSIS 


SUBPROGRAM TITLE: 

MAING 

VERSION: 


in 

DATE: 


October, 1971 

UPDATE: 


June, 1973 

AUTHOR: 


R. M. Haralick 

DOCUMENTED BY: 


Robert J. Bosley 

PROGRAM LANGUAGE; 

fortran IV 

IMPLEMENTED ON: 

HW 635 

PURPOSE: 




To print out a picture of the subimage, copy it to file 2, and 
then process it through the texture subroutines FPLXIT to get 


the LEX arrays, 

IMOMTR to calculate the texture features. 


and RITOV/T to 

output the results. 

ENTRY POINT: 


• 


CALL MAING (IWORK, MERR, MERGE, PICTUR, IF) 

ARGUMENTS; 

IWORK 

NUMLIN by NUMPPL subimage array. 


MERR 

Set to 1 if an error occurs in fitting the LEX 
arrays into IWORK. 


MERGE 

TRUE to merge the four LEX arrays into one. 


PICTUR 

TRUE for a picture of the subimage. 


IF 

File code for the output tape, - , 


COMMENTS; 

The subimage sent in IWORK is scaled to fill a page for the 
picture printout, and at the same time if is cpnied to a scratch 
disc on file code '02' , If the size of the LEX arrays is greater 
than NUMPPL x NUMLIN, then an error message is printed 

and processing is terminated byMAlNLN, after putting EOF 

marks on the output tape. Each subimage is quantized by 
KEQUAN to 32 levels,, 
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CALLCD DY; 


MAINLN 


SUBPROGP^A^AS REQUIRED: 
KEQUAN 
PITCHR 
FPLXIT 
IMOMTR 
RITOWT 



SUBPROGRAM TITLE: 
VERSION: 

DATE: 


KEQUAN 

II 

Septe mber, 1971 


UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE: 


June, 1973 
G. Elliot 
Robert J . Bosley 
FORTRAN IV 
HW635 


To equal probability quantize the input array 


to NQ levels. 


ENTRY POINT: 

CALL KEQUAN (lA, NGL, NQ, lASIZE) 


ARGUMENTS: 


lA 

Input array which is returned quantized. 

NGL 

Number of greytone levels in lA. 

NQ 

Number of quantizing levels. 

lASlZE 

Size of array lA. 


If the number of grey tone levels exceeds 512, an error me\isag 
is printed. 


ERROR FLAGS:. 


SUDPROGR/'./.A TITU: 
VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE: 

To print 


PITCHR 

II 

July, 1969 
November, 1970 
R. Cowles 
G. Elliott 
GMAP 
HW635 

images in 13 grey levels. 


ENTRY POINTS: 

CALL PITCHR (IRRAY, ICELL, JCELL, INIT, IT, IMIN, IMAX, 

NROW, NFIL, IFIL, NULW, NULD, AMAG, DMAG,*) 

CALL SNAP 

CALL SNAPA (I ARRAY) 

CALL ENDBNR 

ARGUMENTS: 

IRRAY Array to be printed, either integer or floating 

point. 

ICELL Number of rows in array, (row dimension) 

jCELL Number of columns in array, (column dimension) 

!=0 if all of image to be printed out is in core 
at time of coll . Output will be done before 
return to calling program. 

=1 for reinitialization entry. Any of the arguments 
previously specified with INIT —0 with the 
exception of INIT may now be changed. Return 

will be made to the calling program without 

any output. This is especially useful if the image 
is read into core ifv pieces and the lost piece 

does not completely fill the array. for initializoHo 
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II 

IMIN 

IMAX 

NROW 

NFIL 

IFIL 

NULW 

NULD 


entry. INIT v/lll reflect the number of times 
entry is made at Sf^AP before final border is to 
be printed. Return is to the calling routine 
without any output. 

INIT =0 is assumed. 

=0 if erroy is floating point 
=1 if array is integer 
II =1 is assumed. 

Minimum brightness level in array. Type of 
IMIN should correspond to that indicated by II. 

IMIN =0 is assumed. 

Maximum brightness level in orroy. Type of IMAX 
should correspond to that indicated by II. 

IMAX =12 is assumed. 

Number of rows of array to be printed if full array 
is not to be printed. This allows for partial printing. 
NROW = ICELL is assumed. 

Number of output files available if Imcjge is to 
be output in strips that are NULW lines wide. 

=0 for all output on file code 06 

=1 for all output on file code IFIL 

>1 for outputs in strips, on file codes specified 

in array IFIL. NFIL=0 is assumed,! 

Array containing output file codes. Ignored unless 
NFIL= 0. IFIL must be a variable rather than a 
literal, since SNAP alters the value(s) of IFIL 
to contain the location of the relevant file 
control block in the upper half of the word. 

Number columns per output page. MAX =129 

NULV/ =120 unless otherv/ise specified. 

Number of rows to be printed before a slew on the 
top of the next page is given. NULD = ICELL*DMAG + 1 


TOO 


AMAG 


DMAG 

¥k 


Floating point magnification in width. 

AMAG =1 is assumed. 

Floating point magnification in length, 

DMAG ==1 is assumed. 

Error return if not enough output files are 
available. Return is made with NARG =-10. 
If not specified, a message will be printed out 
on the accounring report and an NF report 
will terminate execution. 
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ERTS TEXTURE ANALYSIS 





SUBPROG RMA TITLE: 
VERSION: 

DATE: 


FPLXIT 

11 

September, 1971 


UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 


June, 1973 
R. M. Haralick 
R. J. Bosley 
FORTRAN IV 
HW 635 


PURPOSE: 

To compute the four nearest neighbor greytone matrices 
LEXl, LEX2, LEX3, LEX4, for angles of 90, 0, 135, 
and 45 degrees. 


ENTRY POINT: 

CALL FPLXIT (IDAT A, LEXl, LEX2, LEX3, LEX4, NUMPPL, 

MERGE) 

ARGUMENTS: 

IDATA Scratch array holding two lines of the subimage. 

LEXl ^ LEX 4 Address indices for the four LEX arrays. 

NUMPPL Number of points in each line of the subimage. 

MERGE TRUE to merge the four LEX arrays into one array. 

COMMENTS: 

This subroutine reads two lines at a time from the subimage being 
processed, which is now on scratch disc file 02. After all 
the LEX arrays are created, they can be merged into one by 

setting MERGE to TRUE in MAI NLN. The merge is performed 

by adding each array term by term ond putting the total into LEXl . 
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SUBPROGRAMS REQUIRCD: 
INDEX 


( 


CALLED BY: 

MAING 




ERTS TEXTURE ANALYSIS 


SUBPROGRAM TITLE; 
VERSION; 

DATE; 

UPDATE; 


INDEX 

1 

September, 1971 
September, 1971 


AUTHOR; 

DOCUMENTED BY; 

PROGRAM LANGUAGE; 

IMPLEMENTED ON; 

PURPOSE; 

To return to the calling program the single subscript for 
the LEX array that indicates where element (1, L) can be 
found, given its row and column subscripts 1 and L. 


R. M. HaraUck 
R. J. Bosley 
FORTRAN IV 
HW 635 


ENTRY POINT; 

INDEX (I, J ) 

f 

ARGUMENTS; 

I Row subscript for an element in the LEX array 

J Colum:n subscript for an element in the LEX 

array . 

COMMENTS; 

This subprogram is a FUNCTION. 

CALLED BY; 

FPLXIT 

IMOMTR 
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ERTS TEXTURE ANALYSIS 


SUBPROGRAM TITLE; 


IMOMTR 


VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 


11 

SepNinber, 1971 
June, 1973 
R. M, Haralick 
R. J. Bosley 
FORTRAN IV 
HW 635 


PURPOSE: 


To calculate the moment texture statistics. 



ENTRY POINT; 

' CALL IMOMTR (LEXl, LEX2, LEX3, LEX4, F, IQ, MERGE) 

ARGUMENTS: 

LEXl " LEX4 Address indices for the four LEX arrays, 
p Cumulative distribution function. 

IQ Quontized output array of lEQPQl, 

MERGE TRUE indicates the four LEX arrays have been 

merged into one. 



TEXTURE FEATURES: 


!• Angular Second Moment 


N N 
g g 


ANGMOM 

M j=l 


where N is the number of grey tone levels, and 

C| 

P(i/ j) Is the array of joint probabilities. 
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2. llntropy 


N 

ENTROP = ^ P('/ j) >09 P('/ j) 

i==l j^l 


3, Mean 


N N 

9 9 


AMEAN=y^ i • P(w j) 

/-V 

i=l j-1 


4. Variance 

N N 

SGMASQ = ^ (! - AMEAN)^ P(1, j) 

i=l j=l , 


5. Covarionce 


N 

9 9 


SG/v\AXY = (i “ AMEAN) (j “ AMEAN) P(i/ j) 

i=l j=l 


6. CorrelaHon 


RATIO = 


SGMAXY 

SGMASQ 


7. Inverse Moment 

. N N 
9 9 

IVDMOM= 2 

i=r i=i 


pQr i L - 

vi'O-j/ 


8. Average Contrast 

N , 
g-1 


D1FAVE=^ k • DIF(k) 


k=l 


v/here DlF(k)*= P('/ j) 


f-l =K 
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9. Variance of Dll' 

N 1 

g-1 


DIF VAR =-■ y*' k • DIF(k) - 
k=l 


N 


g-1 

E k • DlF(k) 
k=l 


10. Enfrophy of DIF 
’ 9-1 


N 


DIFENT= - ^ DIF{k) • log (DIF(k)) 
k=l 


11, Average of Intensity 

SUMAVE = y~^ k • SUNA(k) 
k=2 

where SUM P(l, j) 

i+j=k 


12. Variance of SUM 

SUM VAR k^ • SUM(k)- 

k=2 


-,2 


2N 

t 


SUM(k) 


k=2 


13. Entropy of SUM 
2N 

SUMENT = - SUM(k) ’ log (SUM(k)) 

k=2 


14. True mean of probability function 

Ng 

TMEAN= ' F(i) 

9 i-1 i 
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COMMENTS: 


The three remaining texture features are computed in subroutine 
COR: CORINF, CORMUT, and CORMAX, If MERGE is 
TRUE, then these features are computed for only the merged 
array, LEX1 , Otherv/iss they are computed for each LEX 
array, corresponding to each of four angles. 

SUBPROGRAMS REQUIRED: 

INDEX 

1EQPQ1 

COR 


CALLED BY: 


MAING 


ERTS TEXTURE ANALYSIS 


SUBPROGRAM TITLE: 
VERSION: 

DATE: 


COR 

II 

November, 1972 


UPDATE: 

AUTHOR; 

DOCUMENTED BY: 


PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE; 


June, 1973 
Sam Shanmugam 
R, J. Bosley 
fortran IV 
HW 635 


To calculate three measures of correlation Between two discrete 
random variables X and Y whose joint probabilities of occurrence 


are known. 


entry POINT: 

CALL COR(PXY, N, lOPT, Q, COR1, COR2, COR3) 
INPUT ARGUMENTS: 

PXY Array of joint probabilities. 

N Size of the array PXY 

lOPT Option flag - if lOPT =0, then only CORl 

and COR2 will be calculated; if lOPT =1, 
then COR3 will also be calculated. 

Q Scratch array of size N x N. This array 

is used only if lOPT is non~zero. 

OUTPUT ARGUMENTS; 

CORl Maximal correlation measure. 

COR2 Information measure of correlation. 

COR3 Second type of maximal measure. 
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COMMENTS: 


These three correlation rnecisures are the last three texture 
features. For detoils of the measures see "Mutual Information 
and Maximal Correlation As Measure of Dependence/' by 
C. B. Bell, in the Annols of Mall-icrnatical Stotistjes, vol. 43 

1962. 


CALCULATIONS: 



com = 


H(x, y) - H^(x, y) 
max (h(x), H(y)) 


where H(x/ y) - ^ log 



H,(x,y)=E E (log (p^(i) Py(j))) y i- j) 

HM= Z(log P^(i)) P^(l) 
i ' 

and H(y) = ^yO)) Py(j) 

2. COR2 = 
where R = ^2^^' 

H 2 (x, y) = 5 ^ ('°3 ''/iV ’’x‘” 

end P^(i) = S P^yO, i)- Py(i) = S P^y*’’ j'- 


3. COR3 Is compufcd using the eigenvector corresponding 
to the second largest eigenvalue of QQ , where 


QO. J) - j) 

CALLED BY: 

IMOMTR 



ERTS TEXTURE ANALYSIS 


SUBPROGRAM TITLE: 
VERSION: 

DATE: 

UPDATE: 

AUTHOR; 

DOCUMENTED BY; 
PROGRAM LAN GUAG E; 
IMPLEMENTED ON: 
PURPOSE; 


lEQPQl 

I 

September, 1971 
September, 1971 
D. Goel 
R. J. Bosley 
FORTRAN IV 
HW 635 


itEPKODUCIBlLITY OP THE 
OECT-TAL PAGE IS POOR 


To determine k levels of equal probability quantization for 
on array for which the cumukitive distribution function is 
known for all elements. 


ENTRY POINT; 

CALL lEQPQl (N, K, F, IQ, IMIN) 


ARGUMENTS; 

N 


K 

F 

IQ 

IMIN 


Number of Items in array F to be equal 
probability quantized. 

Number of quantizing levels. 

Input array to be quantized. 

Output array of quantized levels. 

The lowest possible level in the input data. 


CALLED BY; 


IMOMTR 


ERTS TEXTURE ANALYSIS 


SUBPROGRAM TITLE; RITOWT 

VERSION: II 


DATE: 


September, 1971 


UPDATE; 

AUTHOR; 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED Ol'l: 
PURPOSE: 


June, 1973 
R, M, Harallck 
R. J. Bosley 
FORTRAN IV 
HW 635 


To output onto printer, cards, or tape the texture features. 


ENTRY POINT: 

CALL RITOWT (LEXl, LEX2, LEX3, LEX4, G, IQ, MERGE, 
■ IF, PICTUR) 


ARGUMENTS; 


LEXl -LEX4 

G 

IQ 

MERGE 

IF 

PICTUR 


Address indices for the LEX arrays. 

CDF for the image data 

Quantized output of lEQPQl of NQUANT 

levels. 

TRUE Indicates that the four LEX arrays have 
been merged into one orray. 

File code for output tope. 

TRUE indicates that a picture of the subimage 
has been printed. 


COMMENTS; 

The output format for the listing is slightly different depending 
upon the PICTUR and merge options. The PNCH option determines 
whether cards or tope or neither are used to output the 17 
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texture fcatuici for each subimago. In any case, tlic texture 
fcotures arc listoci on the printer. If PNCH = 1HY in tbc 
SPARAM card in MAINLN, then cards ore punch accorc.ing 
to the follov/ing formats: 

1. for MERGE r: TRUE: Ml, Nl, NFT, ANGMOM, ENTROP, 

RATIO, SGMASQ, SGMAXY, AMEAN, VIDMOM, KOUNT/ 
TMEAN, DIFENT, DIFAVE, DIFVAR, SUMENT, SUMAVE, 
SUMVAR, KOUNT+l/CORINF, CORMUT, CORMAX, KOUNTh2. 

FORMAT (12, IX, 212, IX, 7F9.5, I9/8X, 7F9.5, 19/8X, 3F9.5, 
36X, 19), v/here (Ml, Nl) is the subimage row, column 
coordinate . 

2. for MERGE = FALSE; Ml, Nl, NFT/ANGM0M(4), ENTR0P(4), 
KOUNT/RATIO(4), SGMASQ(4), KOUNT+l/SGMAXY(4), 
AMEAN(4), K0UNT+2AIDM0M(4), TMEAN(4), KOUNT+3/ 
DIFENT(4), DIFAVE(4), K0UNT+4/D1FVAR(4), SUMENT(4), 
KOUNT+5/SUMAVE(4), SUMVAR(4), !<OUNT+6/CORINF(4), 

_ . , CORMUT(4), KGUNT+7/CORMAX(4), KOUNT+8, v/here 

. (4) denotes four values, one for each angle. 

FORMAT (/'THE SCENEC, 12, 1,', 12,') HAS BEEN 
REDUCED BY', I5/8(1X, 8F9.5, I7/)/lX, 4F9.4,,38X, 15). 

If tape output on file code 'IF' is selected by PNCH = IHT, then 
the texture features are written in binary cs follows; 

V/RITEaF) Ml, Nl, NFT, ANGMOM(K), ENTROP(K), RATIO(K), 
SGMASQ (K) , SGMAXY(K), AMEAN(K), VIDMOM(K), 

TMEAN(K), DIFENT(K), DIFAVE(K), DIFVAR(K), SUMENT(K), 
SUMAVE(K), SUMVAR(K), CORINF(K), CORMUT(K), 

CORMAX(K), v/here K is one for MERGE = TRUE and is 
4 for MERGE -• FALSE denoting the number of values for each 
measure. 

If neither cards nor tape output is selected, then the LEX arrays 
are listed after the texture features. 

(J, CALLED BY: v 

MAING 
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IV.l-c Cross-Band Texture Analysis Programs 
Documentation 


SPECTR 

GETIM / GETIT 
ERTS 
DIFFER 
COVAR 

MNCVIN / MNCV 
CORREL 



CROSS-BAND TEXTURE ANALYSIS 


PROGRA/vrilTLE: 

VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 


SPECTR 

1 

January,; 1974 
January, 1974 
RoberiJ. Bosley 
Robert J . Bosley 
FORTY 
HW635 


PURPOSE: 

This program is the mainline of the spectral-textural analysis 
which obtain spectral-textural features for land-use classification 
of E RTS MSS data. 


ENTRY POINT: 

CALL SPECTR (IMAGE, X, ILINE, IXDIM, lYDlM, NDIN) 

INPUT ARGUMENTS; 

IMAGE Array containing a subimage. 

(lYDIM, IXDIM, 

IDIN) 

X (lYDIM, Array containing the difference image. 

t IXDIM, IDIN) 

ILINE Array one ERTS line is read into. 

IXDIM Column dimension of IMAGE, X . 

lYDlM Row dimension of IMAGE, X. 

NDIN Number of components, bands, in IMAGE, X. 

INPUT PARAMETERS; under NAMELIST 'PARAM': 

NDIM Number of components desired in IMAGE: 

Assumed to be NDIW . 

NUMLIN Number of linos in subimage; Assumed to be I YDIM. 


NUMPPL 

Number of columns in subimage; Assumed to 
belYDlM. 

FMT 

Format used to output elements of covaiiance 
motrix; assumed to be 'El 1.4 . 

TITLE 

80 column title for run. 

OPT 

TRUE to print covariance matrix; assumed FALSE. 

IDIST 

Distance between neighboring cells for difference 
array; assumed to be 1 • 

IRSTRT 

Starting rov/ in ERTS image; assumed to be 1 . 

IRSTOP 

Stopping rov/ in ERTS image; assumed as last rov/. 

LAPHOR 

Number of horizontal points that subimages over- 


lap; assumed to be 0. 

LAPVER 

Number of vertical points that subimages overlap; 
assumed to be 0. 

PNCH 

TRUE for output on cards, FALSE for output to 
file code 01 for tape or disc . 


EXA/v'iPLE of DRIVER: 

DIMENSION IMAGE (16, 17, 8), X (16, 17, 8), ILINE (3300) 
EQUIVALENCE (IMAGE, X, ILINE(130)) 

1XDIM=17 


IYDIM=16 

NDIN=8 t 

CALL SPECTR (IMAGE, X, ILINE, IXDIM, lYDIM, NDIN) 

Stop 

END . 

This driver wi!l set up the spectral-textural analysis mainline 
SPECTR to process 16 x 16 subimages over 8 components with 
IDIST =1 . Note IXDlM must include NUMPPL plus IDIST points, 

and array ILINE must have at least NUMPPL x NDIM points 

outside of ony other array . These points form array X LINE in 


COVAR. 


117 


REQUIREMENTS: 


1 . Coro - 251< for IMAGE (32, 33, 8) 

2. ERTS inpul- tape musf bo on file code 'E5' 

3. Roridoni access disc file on file 11, ng. $ FILE II A|IR, OR. 

A, Subprograms required: 

DRIVER 

SPECTR 

GETIM 

SETDIM (Fortran callable program to initialize HEMP package) 
GETIT 

. ERTS ■ 

DIFFER 
COVAR 
MNCVIN 
MNCV 
, CORREL 

SFA07F 

HEMDET (Fortran callable program from HEMP library to 
solve for determinant of matrix) , 

COMMENTS: 

These analysis programs obtain a series of NUMLIM by NUMPPL 
by NDIM subimages from the ERTS input tape and outputs a feature 
vector witii (1 + NDIM (NDIM~1)/^) components for each subimage. 
The input data is processed in horizontal rows of subimages that may 
overlap both horizontally ond vertically . The distance between 
. neighboring resolution cells used to get the difference array is variable 

Note that IXDIM must Include NUMPPL plus IDIST points, and that 
the array ILINE must have at least NUMPPL >>' NDiM points outside of 
any other array because these are used for array XLINE in COVAR. 
Other than this, arrays IMAGE, X, and ILlNE may be equivalenced 


to con’-.crvc core, a.i in the example for a DRIVER. The first feature 
component on tlie output file is tlie entropy measure, and the remaining 
NDIM (NDlM-l)/2 cemponents are elements of the corrolr tion matrix. 
See the GETIM subprogrom for olisting of all 8 possible cemponents 
for a subimage . 


CALLED BY: 


DRIVER 


' CROSS-BAND TEXTURE ANALYSIS 


SUBPROGRAM TITLE: 
VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

documented BY: 
PROGRAM LANGUAGE: 
implemented ON: 


GETIM 

I 

January, 1974 
January, 1974 
Robert J. Bosley 
Robert J, Bosley 
FORTY 
HW635 


PURPOSE: 

To get a rov/ of subimages from the ERTS input tape and copy, them 
onto a random access disc file. 


ENTRY POINTS: 


6\LL GETIM OLINE, JDIST, NDIM, IRSTRT, IRSTOP, NUMLIN, 
NUMPPL, LAPVER, LAPIIOR, NHOR, I NCR, IPEND) 

CALL GETIT 


f i 


INPUT ARGUMENTS: 


ILINE 

Array into which one ERTS line is read . 

IDIST 

Distance between neighboring resolution cells 


whose differences form the difference arroy, X . 

NDIM 

Number of components in each resolution cell. 

IRSTRT 

Starting line of ERTS data. 

IRSTOP 

Stopping line or ERTS data» 

NUMLIN 

Number of lines in each subimage. 

NUMPPL 

Number of points per line (columns) in each sub 

LAPVER 

Number of lines that subimages overlap. 

LAPHOR 

Number of columns that subimages overlap. 
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OUTPUT ARGUMENTS; 

NHOR 

INCR 

IPEND 


Number of borizonlal overlapping subimages in image 
Horizonfal increment to the first column of the 
next subimage in the row. 

Lost cel! in the row. 


REQUIREMENTS: 

Random access disc file on file code II: and FILE II, AMR, lOR. 

COMMENTS: 

This program is initialized by calling GETIM which initializes the 
ERTS input tape and sets up the disc on file II for random access 
with fixed length records of NDIM words, up to a maximum of 
NDIM =8. The eight possible greytone components are: 

1 . Band 2 

2. Band 3 

3,. Band 4 

4. Band 2 x Band 2 

5. Band 3 x Band 3 . 

6. Band 4 x Band 4 

7. Band 2 x Band 3 

8. Band 2 x Band 4, where band 1 through 4 is MSS band 4 through 7. 
It is suggested that all eight components be used and the test of these 
be selected for feature vector components. This gives a total 

of 29 components, including the entropy measure. 

After calling GETIM, all further calls are made to GETIT which 
goes down the input data file line by line copying to the randorn 
access disc an entire row of NHOR subimages of NDIM components. 
Note that MSS band 4 (band 1 here) has been deleted because of 
its high corretdtion with MSS band 5 (band 2 here) . 

CALLEDBY; 

SPECTR 
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SUBPROGRAM TITLE: 

ERTS 

VERSION: 

11 

DATE: 

September/ 

UPDATE; 

November/ 

AUTHOR: 

G. Funnels 

DOCUMENTED BY: 

R. Bosley 

PROGRAM LANGUAGE: 

GMAP 

IMPLEMENTED ON; 

HW635 

PURPOSE; 



entry POINTS: 


ARGUMENTS; 


To read 7-track ERTS MSS data tapes. 

CALL EINIT (NOLS) • 

CALL ESKIP (NOSK) V 

CALL EREAD (1/ 
CALL EREWND 

LN) ' 

NOLS 

Number of words per scan line; returned by ElNlT 

NOSK 

The number of records to skip. 

I 

The array into which the NOLS words of data 
frdm a line of ERTS data is placed. 

LN 

Returned by EREAD giving the line number of the 
line of data returned. If LN =0/ the end of file 


was reached on the E RTS tape. 


ERROR FLAGS; 


MB 

EREAD buffer is not large 


ERTS data. 

Al 

ElNlT was called twice. 

NI 

ElNlt was not called beh 


ESKIP/ or EREWND. 
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UE 


EOF cncounterod v/hile reading ID or 
onnotafion blocb on ERTS tape. 

EOF encountered while trying to ship records 
in ESKIP. 

COMMENTS: 

EINIT initializes the ERTS tape so that data may be read, and 
must be called first. ESKIP skips over NOSK records (scan lines). 
EREWND rewinds the ERTS tape. EINIT must not be called twice. 
The data placed into array I by EREAD is in standard corresponding 
point forms. Since the ERTS MSS data has four channels, there 
are actually NDLS/4 points or cells per scan line. 

REQUIREMENTS: 

ERTS tape must be on file code ‘ES*. 


■i 


li 
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CROSS-BAND TEXTURE ANALYSIS 


SUBPROGRAM TITLE: 
VERSION; 

DATE: 

UPDATE; 

AUTHOR; 

DOCUMENTED BY; 
PROGRA.M LANGUAGE; 
IMPLEMENTED ON; 


DIF PER 

1 

January, 1974 
January, 1974 
Roberi' J. Bosley 
Roberl- J. Bosley 
FORTY 
HW635 


PURPOSE; 

To calculate the nearest neighbor 


difference array. 


ENTRY POINT; 

.CALL DIFFER (lA, X, IXDIM, lYDIM, NDIM, IDIST, NUMPPL, 
NUMLIN) 

INPUT ARGUMENTS; 

IA(1YDIM, Array containing the subirnage being processed. 

■ IXDIM, NDIM) 

IXDIM Column dimension of lA and X. 

lYDlM Row dimension of lA and X. 

i, NDIM Number of components of each resolution cell . 

NUMPPL Number of columns in the subimage. 

NUMLIN Number of lines in the subimage. 

OUTPUT ARGUMENTS: 

X(IYD1M, Array of nearest neighbor differences, 

IXDIM, NDIM) 


COMMENTS: 


This subrouUno will replace Hie original subimogG in array lA 
v/lth iho nearest neighbor horizontal difforenco: (11 ‘"HI/ 

12 - “ JN) where I. end J are N "dimensional horizontally 

neighboring resolution cells separated by distance IDIST . Arroys 
lA and X may be equlvalenced to occupy the same area of core. 
Note that the absolute value is used to get the differences. 

This gives only the positive half of the distribution of differences 

I-JandJ-I. This shifts the mean of the distribution from the 

origin and must be accounted for in COVAR when the covariance 
matrix of the difference array is calculated. 


CALLED BY: 


SPECTR 


CROSS-BAND TEXTURE ANALYSIS 


SUBPROGRAM TITLE; 
VERSION: 

DATE: 

UPDATE; 

AUTHOR; 

DOCUMENTED BY: 
PROGRAM LANGUAGE; 
IMPLEMENTED ON: 


COVAR 

I 

January, 1974 
January, 1974 
Robert J. Bosley 
Robert J . Bosl ey 
FORTY 
HW635 


PURPOSE; 


To calculate the covariance matrix of the difference array . 


ENTRY POINT: 


CALL COVAR (XLINE, NDIM, NUMPPL, X, IXDIM, lYDlM, 
NUMLIN, NDIN, COV) 


INPUT ARGUMENTS: 

XLINE(NDIM, Array used to send one line of the difference 

NUMPPL*) array to MNCVIN. 

NDiM Number of components of each vector in X. 

NUMPPL Number of columns of vectors in X. 

X Nearest neighbor difference arroy. 

IXDIM, lYDlM Column, row dimensions of array X, 

NUMLIN Number of rows of vectors in X, 

NDIN Dimension of COV array, 

OUTPUT ARGUMENTS: I 

COV (NDIN, Covariance matrix of the difference array X. 

NDIN) • 


REQUIREMENTS: 


Subroutine MNCVIN. 


COMMr:NTS: 


Array XLINli Is formed from the first NDIM x NUMPPL points 
of array ILINI; In SPECTP. Hence at least the first NDIM x NUMPPL 
v/ords of ILINE tnust not be eqolvalonccd into oirciy X. 

Since only the positive differences wcto used to make arroy X 
by DIPPER, the mean is reset to zero for each component . 

CAI.LED BY; 

SPECTR 
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CROSS-BAND TEXTURE ANALYSIS 


( 


SUrsPI’sOC-P.AM Tiu ri: 

VtRSJON; 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE; 


MNCVIN 

1 

August/ 1973 
August-/ 1973 
James D. Young 
James D . Young 
FORTRAN IV or FORTY 
HW635 


To calculate the mean vector and covariance matrix for each 


category of a set of vectors, based on a specified percentage 
of the vectors randomly chosen within the set. 


ENTRY POINTS 

CALL MNCVIN (NVPCAL/ NDIM, NCALL, PERCNT, NCAT, 

X, NTRUTH/ COV/ XMEAN, SCTMEN, SAMSZ, lERROR, JERROR) 

CALL MNCV 


INPUT ARGUMENTS: 

NVPCAL 


NDIM 








NCALL 

PERCNT 

NCATv 



Number of vectors per call. ^ 

Dimension of data vectors. 

Number of calls. 

Plercentage of total number of vectors from which 
the mean and covariance matrices will be 
qalculated. 

Number of categories considered; set to 1 if 
only one set of statistics will be calculated for 
all data, set to the number of categories in data 
set If one set of stotiotics will be calculated for 
each category'. 

■'I ^ 
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X (NDIM, 
NVPCAL) 
NTRUTI-I 
(NVPCAL) 


Matrix containinc! Input data vectors In its 
columns. 

Vector containing the ground truth integers/ 1 
through NCAT/ associated v/ith the data vectors 
of X; if NCAT is 1 this vector is ignored. 


OUTPUT ARGUMENTS: 

COV(NDIM/ Matrix containing covariance matrices of the data. 
NDIM,' NCAT) 

XMEAN (NDIM, Matrix containing mean vectors of the date, 

NCAT) 

SCTMEN(NDIM, Scratch matrix. 

NCAT) 

SAMSZ (NCAT) Vector with the number of vectors used to calculate 
the statistics for each category. 
lERROR Error flag when returned non~zero; 

■ . 1. If NVPCAL .LE. 0 

2. if NDIM .LE. 0 

3. If NCAL .LE. 0 

4. if PERCNT .GT. 100. or so small that less 
than 2 vectors will be used to calculate 
all the statistics. 

5. if NCAT .LE. 0 

JERROR Error flag when returned non-zero; 

1 . if an illegal ground truth label is formed, 

COMMENTS; 

One call to MNCVIN Initializes this routine. Colls toMNCV 
should be performed NCALL times, each with the next line of 
vectors in X. After MNCV has been called NCALL times, the 
mean vector and covariance matrix for each category is conripleted. 
For use in the Spectral-Textural Analysis programs, PERCNT is 
set to 100 and NCAT is set to 1 . 
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CROSS-BAND TEXTURE ANALYSIS 


SU’JKIOGRAM TITLE: 

CORREL 

. ibiii'iiUAyU'v-'iijiijj.i i THE 

^ OEMNAT. PAIE IS POOR 

VERSION: 

DATE: 

January/ T974 

UPDATE: 

January/ 1974 

AUTHOR; 

Robert J. Bosley 

DOCUMENTED BY; 

Robert J . Bosley. 

program LANGUAGE: 

FORTY 

IMPLEMENTED ON: 

HW 635 

PURPOSE; 

the correlation matrix given the covariance matrix 

To calculaie 

of the difference array. 

ENTRY POINT; . 


CALL CORREL (COV, NDIM, COR) 

INPUT APvGUMENTS: 


cov 

Covariance matrix of the difference array 

NDIM 

Order of matrix COV. 

OUTPUT ARGUMENTS: 


COR 

Correlation matrix of COV. 


CALLED BY; 

SPECTR 
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IV.l-d Piecewise Linear Classification Programs 
Documentation 

RCLASS . : /''i; 

XI N 

LINEAR 

WEIGHT i 
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LINEAR DISCRIMINANT CLASSIFIER 


SUBPROGRAM TITLE: RCLASS 

VERSION: 1 

September, 1972 


UPDATE: 

AUTHOR: 


DOCUMENTED 3Y: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE: 


November, 1972 
Sam Sbanmugam 
Sam Sbanmugam 
FORTRAN IV 
HW 635 


This subroutine is the mainline for routines which implement 


a decision rule using piecev/ise linear discriminant functions. 
It calls subroutine XIN to read in the pattern vectors, and 
calls LINEAR to get the decision rule and classify the pattern 


vectors. 


ENTRY POINT: 

CALL RCLASS (V/ORK, ISIZE) 

ARGUMENTS: 

WORK Scratch array of size ISlZE which holds 

the training vectors and the weight vectors. 
ISlZE Dimensiori^pf array WORK. 

INPUT PARAMETERS: 

Card 1. Format (411) 

NOPTl Set to 1 to print out training patfyms; 

otherwise set to zero. 

NOPT2 Set to 1 to print out test patterns; otherwise 

set to zero. 

NOPT3 Set to 0 to list only the contingency table 

for the training patterns; otherwise set to 1 

ond the classification of each training pattern 
is listed as Well as the contingency table. 
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N0PT4 


REQUIREMENTS: 


Set to 0 for only the contingency table of the 
test set; otherv/ise set to 1 for the classification 
of each test pattern as well. 

(515) 

The total number of pattern vectors in the 
data set. 

NPART out of every ten pattern vectors in the 
data set will be used for training. The remaining 
v/ill be used as test patterns. 

The number of measurements per vector plus two. 
The number of ground truth categories. 

Twice the maximum number of training patterns 
in any one category. 

‘ 1, Maximum number of categories is 15. 

2. Maximum number of components, NDIM, is 100. 

3. Pattern vectors must be sorted by category. 

4. A scratch disc file must be on 02. 

5. ISIZE must be at least .y: '!■ 

NDIM (NTRAIN + 10) + 1000 
+ (NC (NC + 1)/^ND + NPAIR * ND 
where ND = NDlM “1 
and NTRAIN = number of training patterns. 

6. Pattern vectors must be written in binary to disc file 01 

as follov/s: \ 

WRITE (01) 1GT> Ml, Hi, NFT, (FEAT(I), I =1, NMEAS) 

where -I / 

IGT is the ground trHh category. 

Ml , N1, NFT are not used - may be used as 
ID tags 

FEAT is the feature vector 

NMEAS is the number of measurements per feature 

vector. . 


Card 2. Fort! 
NTOT 

NPART 


NDIM 

NC 

NPAIR 
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7. Subprograms required 
DRIVER j 

RCLASS } 

XIN 

LINEAR 

WEIGHT 

ERROR FLAGS: 

If ISI2E Is too small, processing Is terminated and an error 
message is listed. 

THEORY: 

Using a regression type algorithm the program obtains a set of 
hyperplanes for separating the training patterns of different 
category pairs. A total of NC(NC'1)/2 hyperplanes are 
determined. Test patterns are identified by taking a m.ajority 
vote on this set of hyperpldnes. For complete details, see 
'•Introduction to Statistical Pattern Recognition" by Y. Fukunaga, 
. Academic Press, 1972. 

% 

COMMENTS: 

The input data file on 01 should have a total of NTOT logical 
records in binary. Each logical record must be of length 
NDIM + 2 words, where word 1 Is the ground truth category and 
words set is sorted into training and test sets according to NPART. 
Training vectors are stored in WORK and test vectors are copied 
to disc 02. 
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( 


CALLED BY: 

d:uver 

OXAMPlJi OF DRIVER; 

DIMENSION WORK (10000) 
ISIZE = 10000 

CALL RCLASS (WORK, ISIZE) 

STOP 

END 


LINEAR DISCRIMINANT CLASSIFIER 


( 


SUBPROGRAM TITLE; 

VERSION; 

DATE; 

UPDATE; 

AUTHOR: 

DOCUMENTED BY; 

PROGRAM LANGUAGE; 

IMPLEMENTED ON; 

PURPOSE; 

Tf/ read the parameter cards and the Input data set, copying 

ENTRY POINT; 

' CALL XIN (WORK, U) . 

ARGUMENTS; 

WORK 

U 

CALLED BY: 

RCLASS 

COMMENTS; ' 

This version does not use subroutine POST to position the input 
file 01 . Hence the input data file must be the first file on 01 . 


Array training vectors are read into 
Scratch array 


XI N 
II 

September# 1972 
December, 1973 
Sam Shanmugqm 
Robert J. Bosley 
FORTRAN IV 
HW 635 
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LINCAri DISCRINAINANT CLASSIFIER 


SUBPROGRAM TITLE: 
VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE: 
IMPLEMENTED ON: 
PURPOSE: 


LINEAR 

I 

September, 1972 
November, 1972 
Sam Shanmugam 
Sam Shanmugam 
FORTRAN IV 
HW 635 


Using the set of training patterns, this program obtains a set 
of hyperplanes for pairwise separation of training patterns of 
different categories. The program also identifies the test 
patterns on a majority vote on the hyperplanes and outputs 
contingency table. ^ 


ENTRY POINT: 


CALL LINEAR (XTRAIN, XTEST, W, U, DUMMY) 


ARGUMENTS: 


XTRAIN Matrix containing training patterns. 

XTEST Matrix containing test patterns. 

W Array of weight vectors. 

U Matrix used for calculating the boundary 

between category pairs. 

DUMMY Scratch array. 


CALLED BY; 


RCLASS 


SUBPROGRAMS REQUIRED; 

WEIGHT 
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LINEAR DISCRIMINANT CLASSIFIER 


SUBPROGRAM TITLE: 
VERSION: 

DATE: 

UPDATE: 

AUTHOR: 

DOCUMENTED BY: 
PROGRAM LANGUAGE; 
IMPLEMENTED ON: 


WEIGHT 

I 

September/ 1972 
November/ 1972 
Sam Sbanmugarn 
Sam Shanmugam 

FORTRAN IV 
HW635 


PURPOSE: 

To find the minimum mean square fit hyperplane for separating 
the training patterns of two different categories. 


ENTRY POINT; 


CALL WEIGHT (U/ DUMMY/ WT/ ND/ NIJ) 


INPUT ARGUMENTS: 

U 


DUMMY 

ND 

NIJ 


Array containing the patterns of category 
I and category J . 

Scratch array. 

ND+1 is the dimension of the pattern vector. 
Number of vectors In U. 


OUTPUT ARGUMENTS; 

WT 


Weight vector which defines the hyperplane 
separating categories I and J. 


CALLED BY; 


LINEAR 


SUBPROGRAMS REQUIRED; 

MINV 


Matrix inversion program from the IBM 
Scientific Subroytine Package. 
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IV.2-a ERTS Retrieval Program Listings 


RETV 

ERTS 

PIXEY 

ZEQUAN 

PITCHR 

WRTDSK 

RDDSKl 

KEQUAN 

RDDSK2 




02-l2-7<t 18.97'* ERTS RETRI'--VAL PROGRAM 


CRETV 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
0 
G 

u 

c 
c 
c 
c 
c 
c 
c 

G 

c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


ERTS RETRIEVAL PROGRAM 
VERSION 1 WRITTEN BY RJ tJOSLEY 


JAN 197** 


DESCRIPTION OF PROGRAM. 

THIS IS the mainline FOR ERTS RETRIEVAL PROGRAMS WHICH W.LL 
RFTRIFVE '^ATA FROM STANOARO NASA FRTS DATA TAPES AND OJTPJT THE 
IMAGE DATA IN A PICTURE, OR GREVTONF LIST NG, OR COPY IT ONTO AN 
OUTPUT TAPE ON FIlE CODE *IF.L*. COORDINATES MAY JE --JMER .N 
M'LLIMETERS OR IN ROW, ^0_UMN CO!)NT. FOR REAS0NA5-E EF"I^I£NGY 
DATA IS RFAO IN 9_OCKS OF 41 LINFS OY 41 POINTS. ONE ERTS TAPE 
W Ll then pF covered ty 21 HORIZONTAL ElOGKS. lFAVING 4 POINTS 
LEpT at the end of FACH line. NOTE--SOMETIMES ON THE FIRST TAPE 
OF AN 'MAGE, THE FIRST FOUR POINTS ARE 255 AND WluL ADVERSE.! 

AFFECT A PICTURE PRINTOUT. IF SO, SKIP THE FIRST FOUR POINTS BY 

^^^NOTE---IF THe'pOINT ICSTRT IS NOT A MUlTxPLE OF 41 FROM THE 
CMO nF THE L'>'NE. THEN THE LAST POINTS MAY NOT NECESSARI.Y BE 
OUTPUTTED SINCE THE B-OCKS ARE DETERMINED BY THE ICSTRT POSITION. RETVOOIO 
?hEREfJ^E suggested that if THE DATA OUT TO THE END OF EACH -ETyoOEO 

lTNE is DFSIREO, that the coordinates be specified in ROW.COlUMN RETVOO|-1 
fOW.T r;"v 3E PREBEIEmiNED SO AS TO OUTPUT T.E OESISEO ^|TV»0EE 

POINTS IN THE ERTS LINE. 

A SPECIAL PICTURE RUN TO PRINT OUT AND REDUCE ANY IMA^E OVER 
THE ENTIRE TAPF CAN BE MADE BY SETTING SPIC TO .TP.UE. IN 
AND THEN SPECIFYING PICTURE PARAMETERS UNDER NAME. 1ST 5PI\.T'JR. 

SEE THE PfXEY PROGRAM FOR AN EXAMPLE OF A SAMPLE RUN. 


RETVOOOl 

REIV0002 

RETV001.1 

RETV0004 

RETV0005 

RETV0006 

RETVOQn? 

RETVOOn^ 

PETVQQ09 

RETVQOIQ 

RETVOOll 

RETVOO 12 

RETVOOIJ 

RETVQ014 

RETV0Q15 

RETV0016 

RETV0Q17 

RETV0018 


INPUT PARAMETERS UNDER NAMELIST /PARAM/. 


NBAND 

IRSTRT, ICSTRT 
IRSTOP,ICSTOP 

nHor 

NVERT 

IPSTR, IPENO 

TITLE 

IFIL 

ILINE 

IMAGE 

PIC 

SPIC 

QjUAN 

PPNT 

TAPE 

MILlI 

SMALL 


BAND NUMBER TO BE SELECTED 
SET=5 FOR ALu BANDS 
ROW.l-OLUMN starting COORCISATES 
ROW, COLUMN STORING COORDINATES 
NUMBER OF HORIZONTAL 41 X 41 BLOCKS 
THAT COVERS AREA SELECTED 
NUMBER OF VERTIGAv. BLOCKS COVERING 
AREA selected 

STARTING, ENDING POINTS IN ERTS I.INE 
TITLE FOP THIS RUN 
OUTPUT FILE FOR TAPF, SET TO 02 
ARRAY where ERTS uaNE IS READ INTO 


RETV0023 

RETV0024 

RETV0025 

RETV0Q26 

retvoqpz 

RETVOO?? 
RETV0029 
RETVOO 30 
RETV0031 
RETV0032 
RETV0033 
PJETVOQ 34 
RETV0035 
RETVOO 36 
RETV0037 
RETVOOie 
RETV0039 
RETV0040 
RETV0041 


ARRAY TO STORE 41 X 41 SU3IMA3E BwOCK RETV0042 


TRUE FOR PICTURE OUTPUT 
TRUE FOR SPECIAL PICTURE RJN 
TRUE FOR QUANTIZED PI.:,TURE OUTPUT 

TRUE FOR GREY-TONE s-ISTING 

TRUE FOR TAPE OUTPUT 

TRUE IF COORD ARE SPECIFIED IN MM. 

TRUE IF MM. oOORD COME FROM A SMAuL 


RETV0043 
RETV0044 
RETV0045 
RETV0046 
RETV0047 
RE TV 01 4 8 
RETV004P 


70 X 70 NEGA rl VE — -OTHERH. SE ASSUMEDRETV0050 
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OOOOOOOOOOOOOOOOOOOOOOOO 


( 


0?-l2-74 


18.974 


EHTS REVRIEVftL PROGRAM 


TO BE FALSE--FROH A 7 X 7 INCH PR! 

R«^STRICT:0NS. ' ^ .r«i* 

1. CRTS INPUT TAPE MUST "E ON . 

Z, FOUR JISC F.LES MUST DE ON FILES P 

•» ANY nUTPUT TAPE MUST ?F POSITIONED ON F.lE CODE 

«ust »e hciermineo «e; yivE 

TfloE — that is, IDSTOP MUST NOT EXCEED 8?4 CO.JMNS OR 
46MM. STARTING COORDINATES MUST DE AT LEAST 1. 

SUBPROGRAMS REQUIRED. 

RETV 

ERTS (WITH EREWNO) 

PIXEY 

ZEQUAN , 

ERTS 

PITCHR 

HRTOSK 

ROOSKl 

KEQUAN 

PITCHR 

R0nS<2 

0-MENSION IMAGE(41,82),ILINE(3300),TITlE(14) 

°N5;kfEr%iR.M,Ns;ND ,p'= . 

j ICSTOP.IFIL, TITLE, MILLI.SPIC 

«,«»»» SECTION I SET UP PARAMETERS FOR PROCESSING *••*** 

INITIALIZE ERTS AND EOF FLAG 


CALL EINIT (LENGTH) 
CALL FLGEOF(05,EOF) 

C 

1001 PIC=.TRUE. 

SPIC=. FALSE. 
QUANs.TRUE. 

PRNT=. FALSE. 

TAPE=. false. 

SMALL=. false. 

mtllI=. false . 

00 7 1=1,14 
r title(I) = '’lank 
IFIl= 2 
Nf)AN0=2 
IRSTRT=l 


INITIALIZE PARAMETERS 




^IBlLlTy 

is 


POOR 


NTRETVQODI 

RETV0092 

RETVOOS3 

RETV00S4 

RETV00G9 

RETV0QS6 

RETVD0G7 

RETV005R 

RETVOO'JP 

retvoo»=.o 

RETV0061 

RETVOOfSE 

RETV0063 

RETV00G4 

RETV00&5 

RETVOOGfo 

RETV0067 

RETVOO*^S 

RETV 0069 

RETV0070 

RETVD071 

RETV0q72 

RETV0073 

RETV0Q74 

RETV00 7'; 

RETV0076 

RETV0077 

RETV007R 

RETV0079 , 

RETVOOaO 

RETV0081 

RETV0082 

RETVQ03S 

RETV0084 

RETV0085 

RETV0036 

RETV0087 

RETV008P 

RETV0089 

RETvoogr 
RETV0091 
RETV0092 
RETV009i 
. RET VO OP'- 
REiTvoog; 
RETV009C 
RETV0097 
RETV009' 
RSTVOOS*^ 
RETVOlOl 
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oo ►•►•o >*oo oooooo oo* o vn«‘o4(\> 


02-12-74 18.974 


ERTS RETRiEVrtL PROGRAM 


lliPIiODUOlBlLITY OF THE 
OEIGINAL PAGE IS POOR 



KSTRT=l 


RETVOlOl 


lPSTOp=n 


RETVQ102 


ICSTOP=0 


RETV01U2 

C 


READ IN PARAMETERS 

RETVOinL 


REA0(05,PARAM) 


RETV0105 

c 


CHECK FOR END OF CAROS 

RETV0106 


IF (EOF) STOP 


RETV0107 

c 


WRITE OUT THE PARAMETERS 

RETV0108 


WRITE(6,1) (TITLr(I) 

,1=1,14) ,NBANO 

RETVOIQR 


5 

6 


IF (N3AMD.EQ.5) WRITE(6,2) 

IF(TAPE> WR1TE(G,3) IFI;. 

IF(PIC) WRITE(B,4» QUAN 

WRITE (6.9 ) IRSTRT.iRSTOP.ICSTRT.ICSTOP 

FORHAT(20X, ‘ERTS RETRIEVA, PROGRAM VERSION 1 1 * ///IX 1 14 A6//// 

• BAND NUMBER IS '»:3) 

ALL FOUR ERTS 8ANJS WILL BE PROCESSED*) 

AN OUTPUT TAPE WILL 3E CREATED ON FILE *U3) 

PICTURE QUANTIZATION IS *,L1) 


F0RMAT( 
FORMA T( 
FORMAT( 
FORMAK 


STARTING ROW IS * , 1 6. 1 H X , *EN0I NG ROW IS *,:6/ 
STARTING COLUMN IS * , 16, 10 X , * END. N3 COLUMN IS *,;6) 

CHANGE MM COORD INTO ROW AND COu 
19 


IF t.NOT.H.LLI) GO TO 
WRITE (6,6) 

FORMATC COORDINATES ARE IN MILLIMETERS') 


IF (SMALL) GO TO 10 


GET THE CORRECT IMAGE SIZE 

ASSUME THAT A PRINT HAS 133MM VERT 
AND 184 MM ACROSS OR 2336 ROWS VERT 
AND 3296 POINTS ACROSS. 

HOWEVER— SINCE THE TAPE ON.Y DOVERS 
ONE FOURTH ACROSS AN IMAGE, THEN USE 
46MM ACROSS AND 824 COLUMNS ACROSS, 


IRSTRT=IPSTRT*2336/ 180-12 
IRSTOP=IPSTOP»2‘?36/18 0 
IDSTRT=ICSTRT*8?4/46-17 
ICSTOP=IC STOP* 824/46 
GO TO 15 


OO SMALL NEGATIVE COORDINATES 
A NEGATIVE IS 70MM 3Y 70MM 


IRSTRT=IRSTRT*2336/70-31 
TRSTOP=IRST0P*2336/70 
ICSTRT=ICSTRT* 824*2/35-46 
1DST0P=IL STOP* 82 4*2/35 

WRITE OUT THE NEW COORDINATES 
WRITE(6,16) IRSTRT,IRSTOp,lCSTRr, ICSTOP 

FORMATC COORDINATES IN POW AND COLUMN FORMAT ARE */ 

1 * STARTING ROW IS *, 16, lOX, ’ENDING ROW IS *,16/ 

1 • STARTING CO.UMN IS * , :6,10X, 'ENOING uOLUMN IS *, 16) 

CHECK COORDINATES SO THEY FAL- IN 
ONE TAPE 


RETVOllO 

RETVOlll 

RETV0112 

RETV0113 

RETV0114 

RETV0115 

RETVOll 6 

retVoiu 

RETV0118 

RETVOin 

RETV012G 

RETV0121 

RETV0122 

RETVQ123 

RETV0124 

RETV0125 

RETV0126' 

RETV0127 

RETV0128 

RETV0129 

RETV0130 

RETV0131 

RETV0132 

RETV0133 

RETV0134 

RETV0135 

RETV0136 

RETV0137 

RETV0138 

RETV0139 

RETV014n 

RETV0141 

RETV0142 

RETV0143 

RETV0144 

RETV0145 

RETV0146 

RETV0147 

RETV0148 

RETV0149 

RETVOlSq 
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ERTS RETRItVAL PROGRAM 


19 


2 U 

21 


w 

22 


C 

15 


23 


24 


C 

C 

c 

25 

r 

27 


26 

V 

c 

28 


C 

c 

c 


IF (IC 5 TOP.GTift 24 ) 

IF (N 3 AN 3 . GT. 5 ) 

IF I N 3 AMD.lt . 1 ) 
IF(i.RSTRT.LT.l) 

IF CCSTKT.LT.l) 


MR! TE ( 6 . 21 ) 
FORMAT!/ 7 / • 
lEPSVlHl ) 

GO TO 1001 

IFC.N 0 T. 9 PIC) 
call PIXEYtIL 
GO TO 1001 


) GO 

TO 

GO TO 

20 

GO TO 

20 

GO T 

0 20 

GO TO 20 

;trt) 

GO 

;trt) 

GO 

:xEcuT 

ION 

;o TO 

Ift 


20 


CHECK PARAMETERS 


TO 

TO 


20 

22 


terminated FOR THIS RUN— ERROR IN 
CHECK FOR SPEGIAu PICTURE RJN 


POSITION THE INPUT TAPE 


N 0 SK=IRSTPT -1 
call EREWND 

IF (NOSK . NE . 0 ) call ESKTPCNOSKI 
MRITE( 6 . 23 > LENGTH ^ ■ . 

FORMAT!* LENGTH OF ONE ERTS liNE iS »i 6 ) 
IF (LENGTH. LE. 3300 ) GO TO 25 
WRITE ! 6 . 24 ) 

FORMAT!///* LENGTH OF u-N^ ON 
execution TERMINATEO') 

STOP 


ERTS EXCEEDS DIMENSION 0~ IL 


DETERMINE THE NUMBER OF SLOvKS 
ALLOW 15 PTS TO £E CUT OFF 3 E--ORE 
STARTING A NEW STRIP OF SlOCKS 

NH0R=(aCST0P-ICSTRT-l&)/4i)+l^ ENDING COLUMN 
IGST0P=NH0R*41 +ICSTRT-1 | 

IF !iCSTOP.LE. 024 ) GO TO 26 
NH 0 R=NH 0 R -1 

NVERT = n-RST0P-IRSTRT-15)/41) Hi 

IPST 0 P= 41 ^NVERTHIRSTRT -1 STARTING AND ENDINGPT 3 IN ILIN 

IoSTR=!ICSTRT-l)H 4 

IPEND=xCST 0 P *4 WRITE OUT NO OF QLOCKS AND STOPS 

WRITE! 6 * 28 ) NhOP * NVERT t I RSTOP » IwSTOP 
FORMAT!* MUMPER 0 =^ HORIZONTAL BLOCKS .S 
1 • NUMqER OF VE'JTIDAL BLOCKS ^ 

I • REVISED STOPPING ROW IS N\ 0 M 

1 * REVISED STOPPING COLUMN IS NOW 


RETV 0151 
PETV 015 '’ 
RETV 0153 
RETV 0154 
RETV 0155 
RETV 0156 
RETV 0157 
RETV 0158 
RETVQ 15 B 
PAPAMETRETV 0160 
RETVOIGI 
RETV 0162 
RETV 0163 
RETV 0164 
iNQ) RETVai 65 

RETVQ 166 
RETV 01 B 7 
RETV 0168 
RETV 0169 
RETV 0170 
RETV 0171 
RETV 0172 
RETV 0173 
PETVQ 174 
NRETV 0175 
REtVQl 7 B 
RETV 0177 
PETV 0176 
RETV 017 C 
RETVOiaC 
RETV 0131 
RETV 018 ? 
RETV 018 ' 
RETV 018 '- 
RETVOlft'^ 
RETVai 3 f 


, 15 / 

,15/ 

* ,16/ 

*,I6) 


SECTION II 


PROCESS The ERTS DATA TAPE 


RETV 0187 

RETV 018 ‘ 

RETV 013 ' 

RETVOlBr 

RETV 0191 

reTvoib; 

RETV 019 

REt'ifOiq' 

RETVOIT- 

REivOJ- 9 ' 

RETVniB 

RETV 019 

PETV 019 

RETV020 
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ERTS RETRIEVAL PROGRAM 


29 


80 

C 

C 

90 

100 

C 


PART 1--REA0 TME OATA 
GO THRU EACH VERTIOAL 9LOC:< 

00 29 10 = 11.14 

rewind n 

DO ion wINE=TRSTRT,IRSTOP 
O.LL EPE.O(ILINE.LN) 

IF (LN.NE. n) GO TO 90 ' 

rORllA}u5!I-''-*EXECUTION TERM- NATED — E OF DETECTED ON ERTS TAPE*) 

GO TO 301 WRITE NHOK RECORDS ON DISC. ONE DISC 

PER 9AN0 

CALL WRTDSK(ILINE,NH0R,-PSTR,-PEND,NBAN3» 


c 

250 

C 

C 

300 

c 

301 

302 


CONTINUE 


NTIMES=1 

NOSK=10+NBANO-1 

IF (N3AND.NE.5) GO TO 250 

NTIMES=4 

NDSK=10 

DO 300 ITIME=1.NTIMES 
NDSK=NDSK+1 


part 2 — OUTPUT TnE DATA ^ ^ 

SET UP NO OF TIMES AND OISw F.Lti UOOE 


GO THRU one TIME FOR EACH-BAND 


OUTPUT THE PICTURE FOR THIS 3AND 
IF(PIC) .ALL RDDSK1(IMAGE.QUAN.NH0R,NVERT.^^^ 

gall ROOSK2(IMAGE,IRSTRT,:RSTOP,NHOR,NCSK,PRNT.TAPE,IFi.) 

CONTINUE another RUN • 

IF (TAPE) ENOFIlE IFIL 
WRITE(6,302) . 

formak////* end of this RUN*/1H1> 

GO TO 1001 
END 


RETV020 1 

RETV0202 

RETV0203 

REIVOZ'^A 

RETV0205 

RETV020E 

RETV02Q7 

RETV020'’ 

RETV02Q9 

RETV021Q 

RETV0211 

RETV0212 

RETVQ2t3 

RETV0214 

RETVQ215 

RETV0216 

RETV0217 

RETV021“ 

RETV021E 

RETV022D 

RETV0221 

RETVQ222 

RETV022? 

RETVnZZL 

RETVO 22E 

RETV022C 

RETV0227 

RETVO 22f 

RETVQ22' 

RETV0231 

RETV023^ 

RETVO 2 3: 

RETV023. 

RETV023' 

RETV023' 

REtV023- 

.RETV023. 




RLi'ivUliUUi^lLITY OF THE 
OEIGINAL PAGE IS POOR 


■RT*; READING PROGRA rt-E RE AO * ESKI P t E INI I 
FOR CENTER FOR RESEARCHf INC. 

4 L PL FRTStERTS TAPF READING PROGRAM 

2 TXL ERTS READING PROGR AfJ-EREA 0 1 EG<£ P « EINI T 

3 TILS FOR CENTER FOR RESEARCH, INC. 

4 DATE 9/it/J'2 

5 * 

6 * CALLING SEOUENCES ARE 

T * 

8 ♦ TO INITIALISE — 

q. • 

1 C * CALL EINIT(NOLS) 

1? V FINIT INITIALIZES THE ERTS TAPE SO THAT DATA MAY 

1 3 * RE READ. XT RETURNS THE NUMSER OF WORDS PER 

14 • SCAN LINE IN THE VARIA3LE NOlS. 

15 • 

16 * TO SKIP A NUMBER OF RECORDS 

17 * . 

18 * CALL ESKIP (NOSKI 

in'* NOSK IS THE NUMBER OF RECORDS TO SKIP. 

|l • IF THE END OF FILE IS ENCOUNTERED BEFORE NOSK RECORDS 

22 ♦ are SKIPPED, EREAO IS ABORTED. 

23 • . 

24 * TO READ A LINE . 

25 * ’ 

PC ♦ CALL EREAO (I, LN) 

V, I T THIS IS THE ARRAY INTO WHICH THE NOLS WORDS OF^OATA 

li , -FROH « line OF EsVs DATA IS PLACED. THE DATA IS PLACED INTO 

: IS PFTCPNED AS ZEPO. 

3 C * OF THE LINE OF DATA RETURNED. 

II * NOTE-- THE ERTS TAPE MUST HAVE FILE CODE *ES* FOR 

39 ♦ THIS PROGRAM... 

;; t abort CODES possible FRO:WHTS SUBROUTINE ARE- 

» MP ErFaO BUFFER ’DATA* IS MOT LARoE ENOUGH 

, I for a block of ERTS DATA. IT MUST BE INCREASED 

44 • jIN. SI ZE • 

, UE end „ 0 F file encountered WHILr. READING 

2a * ID oV annotation blocks on erts tape _ 

® EF end of file FNCOUNTERED while TRYING TO SKIP 

cft ♦ RECOROS ON ERTS tape IN ESKIP. 


33 * 

34 * 

35 » 

36 ♦ 

37 ♦ 

38 * 

39 * 

40 ♦ 

41 » 

42 • 

43 • 

44 • 

45 • 

46 ♦ 

47 * 
43 * 

49 » 

50 • 



r*) TO 




RTS READING PROGR AM-EPE AD t ESKIPt E IN IT 


PAGE 


STORAGE 

5T .EINIT 

54 REC^40. 

55 FOR 

56 

57 CNTl 

58 CNT2 

59 CONT 

60 EOFA 

61 

62 data 

63 OT 

64 IT 


OFG 

OFC 

VFO 

FILC3 

lOTO 

lOTO 

lOTO 

LOU 

MME 

RSS 

ass 

ass 


65 STS TALLY 

66 ST ass 

67 STK ass 


6 

0 

18/FC9 
FC3,E3 
DATA,! 
DATA,1 
DATA, * 
=3H0UE 
GEQORT 
1024 
1 
1 

STK»4 

1 

4 


THIS IS NONZERO IF EINIT HAS BEEN CALLED 
THIS IS THE CURRENT LINE NO. 
,l/0il/1.2/0,l/0,l/0.l/I 

3CW FOR READING ID 

39 DCW FOR READING • ANNOT ATION 3LOCK 

» DCW FOR READING DATA 3L0CK 

DATA BUFFER AREA 
OUTPUT TALLY 
INPUT TALLY 


STACK 

STACK 

STACK 


TALLY 

TALLY 

AREA 


ERTS0Q5 1 
ERtSOObA 
ERTSOQbb 
ERTSOO 
ERTSOa 
ERTSQQbS 
ERtSODSD 
ERTS0Q60 
E?<tsOQ61 
ERTS0Q62 
ERTS0063 
ERTS0064 

ERTsqoeb 

ERTS006E 

ERTS0067 



ms 

Poos 


vT O 


•9TS READING PROGPAM-EREAO tESKIP»EINIT 


OF THE 

ORIGINAL PAGE IS POOR 


PAGE 


EINIT 

69 EINir SAVE 


70 

SZN 

, EINIT 

HAVE WE BEEN 

71 

TNZ 

EA3TA 

YES 

72 

STCl 

.EINIT 

mark that HE 

73 

EAXO 

2,1* 


74 

STXO 

EIP 

SAVE ADDRESS 

75 

CALL 

OPEN (FDW, 1) 

OPEN FILE 


CALLED DEEORE 
•VE DEEN HERE ONC 



76 


call READ(FC8,CNT1I read id RECORD 


77 


78, 

79 

«0 EIP 
81' 

82 

83 

84 

85 

86 


37 

88 

89! 


9o; 

91 

92 

93 

94 

95 



CALL WAIT(FC9,EOFA» 


LDQ 

OATA+3 

AMQ 

=O177777,0L 

STO 


QLS 

6 + 18 

STCQ 

AODGNT,70 

QPL 

6+18-1 

DIV 

• 9, Du 

ARL 

0 

TZE 

» + 2 

ADQ 

1,DL 

CMPQ 

1025, DL 

TNG 

♦ + 3 

•LO;Q' 

=3H0M8,0L 

MME 

CEoORT 

5TCQ 

CONT, 07 

MME 

GE3NAP 

ZERO 

CATiV, 9 

CALL 

READ(FC3,CNT2l 


ciLL % WAIT(FCa,EOFA» 

: ^ ' ^X:J . 


AND WAIT FOR IT TO GET DONE 


GET RECORD LENGTH . 

ISOLATE IT 

GIVE IT TO CALLER 

SAVE TALLY COUNT 
MULTIPLY BY 2 
/iNO DIVIDE 3Y 9 
is REMAINDER ZERO 
YES 

NO, SO INCREMENT QUOTIENT 
IS IT TOO BIG 
NO 


YES, SO ABORT 
SAVE IT IN DCW 

SNAP OUT ID BLOCK 
READ ANNOTATION BLOCK 


WAIT ON IT 




5 


ERTS0069 


ERTS0070 
ERTS0071 
ERTSOO 72 
ERTS0073 
ERTS0Q74 
ERTS007^ 


ERTS0076 


ERTSOO 77 


ERTS0Q76 
V ERTS0079 
f ERTSOO 30 
ERTSOO 31 
ERTS0032 
ERTS0033 
ERTS0Q3L 
ERTSOO 30 
ERTSOO 86 
ERTS0087 
ERTSOO 85 
ERTSOO .39 

ERT3009C 
ERTSOO 91 
ERTSQ09 
ERTSOO 9 
ERTS009L 
ERTSOO 9 5 


ERTSOO 96 


147 


Cm' ro 


ERfS RPA3I'.'G poOGRAM-EREAOt ESKIPt EIMI T 
EINIT 


PAGE 


97 

MME 

GESNAP 

98 

ZERO 

DATA, 139 

99 

RETURN 

EINIT 

100 ESKIP 

SAVE 



SNAP OUT ANNOATION 3LOCK 
AND RETURN 


ERTSOQ 9 
ERTGQQ 9 
ERTS009 
ERTSDIO 


101 
102 

103 

104 ECOHP TZE 

105 

106 

107 

108 

109 

110 


SZN .EINIT 

TZE EA3T3 

LDO ?»1* 

ESKR 

CMPQ 64. DL 

TRC ESK64 

ASQ RECNO. 

EAXl O.QL 

STXl *+5 

CALL FSREC (FCS, .ESKIP,EOFS) 


ARE WE initialized 
NO 

GET NUM8ER RECORDS TO SKIP 
NONE TO DO. SO RETURN 
IS IT > 63 
y 2 

INCREMENT RECORO COUNT 


111 ESKR RETURN ESKIP 

112 .ESKIP 3SS 1 


113 EOFS lDO =3HOEF,OL 

114 MME GESORT 

115 * TRYING TO SKIP 64 OR MORE RECORDS 

63. DL 
RECNO. 

63.DL ^ 

.ESKIP SAVE FOR LATER 

FSREC (FCB.63.E0FS1 


RISPROBUCTBILirf OF THE 

grigenAL page is poor 

NO. OF RECORDS TO SKIP 
UNEXPECTED EOF 


116 ESK64 LDA 


117 

118 

119 

120 


ASA 

S"Q 

STQ 

CALL 


increment RECORO COUNT 


ERTSOiC 

ERTSOir 

ERTSOiC 

ERTSOIC 

ERTSOIC 

ERTSOIC 

ERTSOIC 

ERTSOIC 

ERTSOIC 

ERTSDll 


ERTSOli 

ERTSOll 

ERTSOli 
ERTSOll 
ERTSOll 
ERTSOll 
ERTSOll 
ERTSOll 
ERTSOll 
0 ERTSOli 


121 

122 

123 • 

124 EAST A 

125 

126 EABT8 


LOQ 

TPA 

LOQ 

MME 

LOQ 


.ESKIP 

ECOMP 

=3hOAI, OL 

GEBORT 

=3H0NI,Dl 


TRIED TO CALu EINIT TWICE 
DIDN'T call EINIT 


ERTSOir 

ERTSOll 

ERTSOi: 

ERTSOir 

ERTSOir 

ERTSOir: 
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ERTS READING PROGRAM-E READ, ESKIP. EINIT 

EINIT 

127 «ME GEDORf 


PAGE 7 

ERTS012 


EOTS READING PROGRAM-FREA D i ESKIP t EINI T 
EREAO 

129 EREAD SAVE 


PAGE 


130 

SZN 

.EINIT 

131 

TZE 

EA3T:< 

132 

EAO 

2,1* 

133 

ADDCNT ORQ 

**,0L 

134 

5TQ 

OT 

135 

EAQ 

DATA 

136 

STQ 

IT 

137 

EAXO 

3,1* 

138 

STXO 

ERP 

139 

CALL 

READ(FC3, CONTI 


140 CALL WAIT (FCBfEOF) 


141 


AOS 

RECNO. 

142 


LOQ 

RECNO. 

143 

ERP 

STQ 


144 


STZ 

LIMIT 

145 

NEXT 

LDQ 

STS 

146 


STQ 

ST 

147 

NXTONE 

TSXl 

L 

148 


STA 

OT.IO 

149 


TTF 

• + 2 

150 


ORL 


151 


TSXl 

L 

152 


STA 

ST, ID 

153 


TTF. 

NXTONE 

154 


LOQ 

STS 

155 


STQ 

ST 

156 

, 1 ' 

AGAIN 

LDQ 

ST, ID 

157 


TTF 

MORE 

158 


STQ 

OT,ID 

159 


TTF 

NEXT 

160 


RETURN 

FREAD 

161 

MORE 

STQ 

OT,ID 

162 


TTF 

AGAIN 

163 


ORL 



ij 


are we initialized 

NO 

GET ARRAY ADDR. 

A03 TALLY COUNT 
AND SAVE IT 

SET UP INPUT TALLY 
INSERT AOORESS OF COUNT WO 

read next line of data 


WAIT ON ,IT 


INCREMENT LINE NO. 

GET LINE NO. 

RETURN TO CALLER 
initialize EXPANDER 

INITIZE STACR TALLT 
GET POINT 

AND PUT IT IN ARRAY 

ERROR . 

GET NEXT POINT 

PUT INTO STACK TALLY 

GO PROCESS NEXT 

TALLY RUNOUT 

SO REINITIALIZE TALLY 

PICK UP POINTS 

Got one 

TALLY RUNOUT 

GO PROCESS NEXT EIGHT POINTS. 
TALLY RUNOUTi SO WE’RE DONE. 
SAVE IT 

GO GET NEXT ONE STACKED 
ERROR 




a 


ERTS0129 


ERTS0130 

ERTS0131 

ERTS0132 

ERT50133 

ERTS0134 

ERTS0L35 

ERTS0136 

ERTS0137 

ERTS013‘? 

ER TSOI 39 


ERT30190 


ERTSQ141 
ERTS0142 
ER TSOI 43 
Vv ER TSOI 44 
' ERTSQ145 
ERTS014 £ 
ERTS0147 
ERTS0148 
ERTS0149 
ERTS0150 
ERTS0151 
ERTS0152 
ERTS0153 
ERTS0154 
ERTS0155 
ER TSOI 5 6 

ERTS0157 
ERTS0t58 
ERTS0159 
ERTSQlftn 
ERTS0161 
ER TSUI 62 
ER TSOI 63 
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PTS REAJIN3 PKO''.fJAM-EREADT ESKIPt EINIT 
POINT FETCHING ROUTINE L 


165 LSAVE 

9SS 

1 

166 LIMIT 

3SS 

1 

167 ♦ 



168 L 

SZN 

LINIT 

169 

TNZ 

LCONT 

170 

LOO 

IT, ID 

171 

AOS 

LINIT 

172 

TRA 

I.RET 

173 LCONT 

AOS 

LINIT 

174 

LDQ 

LINIT 

1/5 

CMPQ 

5,uL 

176 

TZE 

L5 

177 

CMPQ 

9,0L 

178 

TNZ 

•♦2 

179 

STZ 

LINIT 

180 

LDQ 

LSAVE 

181 LRET 

LOA 

0 , PL 

182 

LLS 

8 

183 

STQ 

LSAVE 

184 

TRA 

0,1 

185 L5 

LDA 

0,DL 

186 

LDQ 

LSAVE 

187 

LLS 

4 

188 

LDQ 

IT, ID 

189 

LLS 

4 

190 

STQ 

LSAVE 

191 

TRA 

0,1 

192 ♦ 



193 ♦ EOF 

PROCESSOR FOR EREAD 

194 EOF 

STZ 

ERP,I 

195 

RETURN 

EREAD 


OR SAVED FROM CAST TSXl L 
SHIFT INDICATOR FOR L 

ARE WE READY FOR NEXT PAIR 
YES 

NO, SO GET NEXT WORD 
increment LINIT 
DONE FOR THIS ONE 
INCREMENT AGAIN. 

IS THIS 5TH TIME 
YES : 

OR 9TH TIME 
MO 

REINITIALIZE . 

GET SAVED QR 

SHIFT OVER 

SAVE QR FOR NEXT TIME 
AND RETURN 

RESTORE QR 

THIS ONE IS DIVIDED OVER 
.WORD BOUNDARIES 


RETURN 


MARK EOF TO CALLER 
AND RETURN 


196 ENO 

PA 09 1 97 2/ 091** 72 JMP3 053172/070822 JHPC 0 72772/0 72 772 

IN THE ABOVE ASSEMBLY 


PAGE 


9 


ERTS0155 
ERTS0166 
ERTS0167 
ER TSOI 63 
ERTS0169 
ERT30170 
ER TS 0171 
ERTS0172 
ER 150173 
ERTS017'f 
ERTS0175 
ER TS 0 1 7 e 
ERTS017 7 
ERTSOl/a 

ERTS0179 

ERTSOlflO 

ERTS0181 

ERTS0182 

ERTS0183 

ERTS018<* 

ERTS018 5 

ERTS0136 

ERTS0137 

ERTS0183 

ERTS0189. 

ERTS019Q 

ERTS0191 

ERTS0192 

ERTS0193 

ERTS0194 

ERTS0195 


ERTS0196 



ooooooooooooooooooooooooooooooooooooooo 


02-09-74 20.623 


SPECIAL PICTURE ROUTINE 


CPIXFY 
C 


SPECIAL PtCTURF ROUTINF 


C 

C 

C 

c 

c 

c 

c 

c 

c 


WRITTEN BY RJ QO^LEY 


JAN 1974 


'’^^^mJs'sS-pSoGRAn'^oS'tpUTS ft PICTURE OF THE ERTS DATA 

pno^nSr’iE^ r^fpn p Ur™.. 

Sy USE« sFnriG amd ixin= »a* c?ey ioi.e ueyeu. ii iS 

rosii:^.fTo A 


NOTF— DISC FILES HUST BE 


INTERNAL PARAMETERS. 
IRANO 
IS, IE 
LINES 
NOSK 

IPSTRtIPEND 

lnskip,kolskp 

ISKIP 

KP 


3AN0 NUMBER BEING PROCESSED 
STARTING, ENDING BAND NUMBERS 
NUMpt^R OF LINES IN IMAGE PRINTED 
number of lines to skip in FRTS TAPE 
STARTING, ENDING POINTS IN iRTS LINE 
LINE AND uOLUMN INCREMENT 
COLUMN INCREMENT FOR ERTS LINE 
NUMBER OF COLUMNS IN IMAGE 


INPUT ARGUMENTS TO PITC.HR, 
IMAGE 

ICELL, JCELL 
INIT 


IMIN,IMAX 

NROW 

NFILES 


IFIL 

nulw,nuld 
AMAG, DMAG 


array T 

number 

number 

MUST 

MINIMUM 

number 

NUMBER 
SET=D 
SET = 2 
IF ,G 
ARRAY C 
NUMBER 
WIDTH, L 


0 BE PRINTED 

OF ROWS, COLS IN ARRAY 

OF TIMES ENTRY IS MADE AT SNAP 

be GREATER THAN 1 

(MAXIMUM ti'iREY TONES IN ARRAY 

OF ROWS t 6 be PRINTED=ICELL 

OF OUTPUT files AVAILABLE, 

FOR all output ON Fli-E CODE 6 
FOR FILES 06 AND 42 
T.?, USER MUST SUPPLY FILES 
ONTAINING OUTPUT FI_E CODES . 
OF COLS, ROWS PFR OUTPUT PAGE 
ENGTH DOWN MAGNIFICATION 


'"clLrPI«Y(H.INF,IMAr.S,ISSIRY.lRSroP,IC3TRI,ICST0P.3UAN,NaANDl 


INPUT ARGUMENTS. 

ILINE 

IMAGE 

IRSTRT.TRSTOP 

ICSTRT,ICSTOP 

QUAN 


nbano 


array ERTS LINE IS READ INTO , 

IMAGE ARRAY FOR PITChR, HOuDS ONE LINE 
START1NG,ST0PING ROW IN IMAGE 
STARTING, STOPING COL IN IMAGE : _ 

TRUE FOR p^'.UAL PROBABILITY QUANTIZING 
OF IMAGF" 

BAND NUMBER TO 0E PROCESSED 


PIXF.YQGl 

PIXFYOn? 

PIXEV003 

PIXEY0T4 

PIXFYOOS 

pixFYoae 

PIXFYD07 

PI XEYO 0 « 

PIXFYOnE 

PIXFYO 1C 

PIXFYO 1! 

PIXFYO i: 

PIXEYQIF 

PIXFYOl- 

PIXEYO t‘ 

PIXFYO If 

PIXEYO 17 

PI0(;EY01' 

PIXEYOl' 

PIXEY02' 

PIXFY02 

PIXEY02 

PIXEYOZ 

PIXFY02 

PIXFY02‘ 

PIXEYOZ 

PIXEYOZ 

PlXEYQZ 

PIXEYQ2 

PIXEY03 

PI XEYO 3- 

PIXEYO 3: 

pi XEYO 3 

PI XEYO 3 

PIXEYO 3‘ 

PIXEY03I 

PlkEYO 3, 

PIXEYO 3 

PIXFY03 

PIXEY04 

PIXFYQ4 

PIXEY04 

PI XEYO 4 

PIXFY04 

PIXEY04 

PIXFYQ4 

PIXEY04 

PIXEY04 

PIXFYQ4 

PIXEY06- 
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oooooooooooooo 


02-09-74 20.623 


special PIOTIJP.E POUTINF. 


C 

c 


1 

2 

c 


SET =5 FOR ALL BANDS 

EXAMPLE OF SAMPLE RUN. 

CONTROL CAOOS— ^ 

SPARAM S°IC=T.OUAN = T tIRSTRT = l«IRST0P=l2l6iICSTRT=5t 
ICST0P = 77? t'JSAND=?i£N0 

SPICTll'7 INIT = 304,MFlLESi2.LM'S'<:lP = 4 ,KOLS KP = 3 , JCELL = 256$EN0 
THI'^ °UN WILL PRINT OUT 0‘1 FILES 06 AND 42 A PICTURE 2S6 PTS 
WIDE "Y 304 LINES. NOTE THAT 1216/4=304 ANO 763/3=256. 

VALUES FOR LNSKI P = 4 . *<OLSKP = 3 . JCELL = 25 fit INI r=304. ALSO. 

THESE VALUES FO® LNSKIP ANU KOLSKP. THE PICTURE HILL BE 
PROPORTION TO THE ERTS PRINT. 


GIVING 

USING 

IN- 


SUBROUTINE PIXEY ( ILIM E, IMAGE, IRSTRT.IPSTOP.ICSTRT.ICSTOP.OUAN, 

1 N3AN0) 

DIMENSION ILINE( 1) .IFIL (to » .IHAGE (1) 

NAMELIST^/PICTUR/NPILES.IFIL.ICELL, JCELl. INIT, IMIN, IMAX.NROW. 

1 NULW,NUi.O, AMAG.QMAG.LNSKIP.KOLSKP 

INITIALIZE PARAMETERS 

ICELL=l 

JCELL=256 

INITS304 

■ IMIN-0 - 

IMAX=75 . . 

IF (QUAM) IMAX=12 
NFILES=? 

IFIL?1)=6 
IFIL (2) =42 
NROW = ICE!.L 
NULW=129 
NULD=60 
AMAG=1 
0MAG=1 
LNSKIP=4 
K0LSKP=3 


REA0(5,PICTUR) 


READ PARAMETERS 
WRITE OUT PARAMETERS 


WPITE(6,1) 

WRITE(6,PICTUR) , 

FORMAT(////20X. ‘SPECIAL PICTURE ROUTINE ///» 
FORMAT (Ihl. ‘BAND NUMBER ‘.ID 


IS = t 
IF=4 

ISKIP=4'K0LSRP 
IF (NBAND.E0.5» 


GO TO 5 


SET up FOR THE DESIRED BAND 


PAGE ito 


PIXFY051 
PIXEY052 
PIXEY053 
PIXEY054 
PIXFY05‘3 
PIXEYD56 
P I X EY 0 5 7 
PIXFY053 
THFPIXFY05R 
PIXEY060 
PIXEYU61 
PIXEY06? 
PIXFY063 
PIXEY064 
PIXEY365 
PIXEY066 
PIXEY067 
PIXEY063 
PIXEY06R 
PIXEY070 
PIXEY071 
PIXEY072 
PIXEY073 
PIXEY074 
PIXEY075 
PIXEY076 
PIXEY077 
PIXFY075 
P1XEY079 
PIXFY030 
PIXEY031 
PIXEY032 
PIXEY033 
PIXEY034 
PIXEYOaS 
« PIXEY036 
PIXEY0a7 
PiXEYoaa 
PIXEY089 
PIXEY090 
PIXEY091 
PIXEY09? 
PIXEY093 
PIXFY0 9‘< 
PIXEY095 
PIXFY09F 
PIXEY097 
PIXF.YOOa 
PIXEY099 
PIXEYIOC 
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02-0g-7<» 20.fi2J 


R^PilODUClBlLIlY OV' Twn 

obiginai, page is%^ 


SPECIAL PICTURE '^OUflNE 


C 

c 

c 

c 


10 

c 


20 

C 

50 

C 

c 


c 

90 

100 


i«:=np4no 
IE = IS 

GO THRU EACH 3AN0 

oo ion iaANO=is»iE 

REWIND 13 
PEWIND 14 

WRITE SUBTITLE 

WOITE(6.2» IBANO 
IP3TR=(ICST'?T-1 ) *4+I3AND 
IPENO=ICSTOP*4 

INITIALIZE SNAP IN PITCHR 

CALL PITC^-RdMAGEtlCELUt JCELLtiNiT,! ,IMAX, IMIN,NROW ,NFI LES 1 1 FIL ♦ 
1 NULW.NULD, AMAG,OMAG, ) 

POSITION THE INPUT TAPE 

N0SK=IRSTRT-1 
CALL EPFWNO 

IF (NOSK.NE.O) CALL ESKIP(NOSK) 

GO THRU EACH LINE 
00 50 LINE=IPSTRT,IRSTOP»lNSI<IP 

READ LNSKIP LINES 

DO 10 LIN=1, LNSKIP 
CALL EREA0(ILINF*LN) 

IF(LN.NE.0» GO TO 10 
l=line+lin 

F0RHAT(///‘ »**EXECUTI0N TERMIMATEO — EOF DETECTED ON ERTS TAPE, 
ItlNE NUMBER IS ‘,16/l-Hl) 

RETURN 

CONTINUE image 

KP = 0 

no 20 IP=IPSTR,iPENO,ISKIP 
KP = KP"K 

IMAGE(KP» =ILINE(IP) ■ 

CONTINUE WRITE THIS LINE TO SCRATCH FILE 14 

WPITEJ14I (IMAGE <IP) , IP=1, OCELLI 

CONTINUE 

ENDFILE 14 

op )j r M n 1 u 

quantize FILE 14 AND PUT OUT ON 13 

IF(OUAN) CALL ZEQUAN ( I MAGE , INIT , JC ELL , 1 , 1 , 1 , 13 , 14, 13) 

REWIND 13 

read the QUANTIZED IMAGE 

00 RO 1 = 1, INIT 

RFAD(13) (IMAGE(KI,K=1, JCELU 

SNAP OUT THIS LINE 

CALL SNAP 
CONTINUE 

RETURN . 

END 


PIXFYlOl 
PIXFY102 
PIXEY103 
PIXFY1Q4 
PIXFY1Q5 
PIX FY1Q5 
PIXFYinZ 

pix«^Y ion 

PIXEYIOR 

PIXFYllQ 

PIXF.Ylll 

PIXFY112 

PIXEY113 

PIXEY114 

PIXEY115 

PIXFYl 16 

PIXF.Y117 

PIXEY118 

PIXFY119 

PIXEY12.n 

PIXEY121 

PIXEY122 

PIXEY123 

PIX EY 124 

PIXEX125 

PIXEY126 

PIXEY127 

PIXEY123 

PIXEY12B 

PIXEY130 

PIXEY131 

PIXFY132 

PIXEY133 

PIX EY 134 

PIXFY135 

PIXEY136 

PIXEY137 

PIXEYl 38 

PIXEY139 

PIXPY 140 

PIXFY141 

PIXEY142 

PIXFY143 

PIXFY144 

PIXFY145 

PIX EY 146 

PIXEY147 

PIXFYl 4.3 

PIXFY14<3 

PIXEYISO 


/X 
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Z r Q U A N 


CZEOt'AN 
C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Z E Q u A N 
MODIFIEj "ROM KEOUAN BY Z DINSTEIN 


SEPT 1973 


description of ^f^OGRAM. tmatf dm FVE ‘IMPtlE* 3Y EQUA_ 

the 'hInIMUM AND MAXIMU'. GREX lORES. 


^^^CALL°7EQUAN (line, NUMLIN,NUMPPL,NC0MP,:C0MP, LEFT. NO, INFILE, 

IOUTFL) 


INPUT ONE LINE OF IMAGE IS READ INTO 

NUMLIN= NUM3EK OF LINES IN IMAGE 

WiiMPPLs NUM9ER OF COLUMNS IN IMAGE 

n''OMP = NUM3ER OF COMPONENTS IN ORIGINAL IMAGE 

irOMP = the COMPONENT TO 2E QUANTIZED 

left = LE=^T-MOST CELL, IN LINE CESIREO 

NO = NUM3EP OF QUANTIZED LEVELS 7crn 

INFILE* INPUT FILE CONTAINING IMAGE TO 3E QUANT. ZED 


OUTPUT ARGUMENTS.^^^^^ CONTAINING OUANTIIEO INAGE 


SUBROUTINE ZEOUANT-INE. NUNUIN. NUMPPL,NC0MP.IC0nP,.EriJi>l3. INFI.E, 

I IOUTFL) 


C 

C 




DIMENSION LINE (NCOMP.D .KN (512 HISTOGRAM TO ZERD 

DO 1 1=1,512 

KN(I)=0 

CONTINUE 

MIN= 1000 n 

MAX=-10000 

REWIND INFilE 

READ(?NrUEr^(^NE<J.LI.J=l.NCONP.,-=l^ 


IRlGHT=LFFT+NUMPPL-t 
PO ? I = LEFT, I RIGHT 
J=LINE(IC0MP,I) 


GET MIN, MAX AND HISTOGRAM 


IF(MAX.LT.J) MAX=J 
IF(MIN.GT.J) MIN=J 
KH(J+1)=XH(J + 1)>1 


ttMJOiTuCiuIU'lY Or liitj 
OEIGINAL PAOK IS PQQic 


ZEQUANni 
ZEQUAN02 
7EQUAN03 
ZEQUANOL 
ZEOUAN05 
ZEQUAN06 “ 
ZEQUANOZ i 
ZEQUANQfl I 
ZEQUANQ9 1 
zequanic 

ZEGUANll 

ZE0UAN12 

ZEQUAN13 

ZE0UAN14 

ZEQUAN15 

ZEQUAN16 

ZE0UAN17 

ZEQUANia 

ZE0UAN19 . 

ZEQUAN2Q ' 

ZEQUAN21 * 

ZEQUAN21 

ZE0UAN23 

ZEQUAM24 

ZEQUA.'J25 

ZE0UAN26 


ZEQUAN27 


2EQUAN28 

ZEQUAN29 

ZEQUAN3Q 

ZEQUAN31: 

ZEQUAN3^ 

ZEQUAN33 

ZEQUAN34 

ZEQUAN35 

ZEQUAN36 

ZEQUAN37 

ZEQUAN3a 

ZEOUAN^g 


ZEOUA'Un 


ZEQUAN41 

ZE0UAN42 

ZE0UAN43’ 

ZEQUAN44! 

ZEOliANASi 

ZE0UAN46 

ZEQUAN47 

ZEQUAN4B 

2EQUAN4P 

ZEQUAN5C 
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of thes 

OEMNAT PAGE IS POOIK/ 


02-l2-7»* 19.149 


E Q U A N 


100 

C 


C 

C 

f* 

W 

3 


C 

6 


7 

A 

C 


9 

C 

11 


CONTINUE 

NGL=MAX 

WRITE (ft. IQO) MIN, MAX 
FORMATdX.’MTN, MAX APE ’,214) 

GET NO OF PTS IN IMAGE 

NP=n:umlin»mumppl 
J= i 
mq=nq 


00 3 T=1.NQ 
N.=NP 

N.=NL-MO*KN(J) 

NP=NP-KN ( J) 

KN (J) =1-1 
J= J*1 

IFtJ.GT.NGL> GO TO 6 
IF (MQ*KN ( J) .LE.N'L»2)G0 TO 4 

MQ=MQ-1 
jO 5 I=J.NGL 
KN(I>.=M0-1 
GO to 8 

N=(NQ-I)/2 
IFtN.LT.DGO TO 8 
00 7 1=1, ngL 
XN(I)=KNC)+N 
CONTINUE 

PEWIND INFILE 
REWIND lOUTFL 


determine lEVElS 
GET NEW LEVEw 

IF LAST LEVEL, SKIP 
INCREMENT THE uEVEL AGAIN 
DECREASE THE NO. OF -EVELS lE-T 

RESET THE LAST lEVEL 


REWIND DISC FILES 


ASSIGN QUANTIZED uEVE^S CINE 3Y LINE 


DO 11 II=1,NUMLIN 

READ (IN FILE) ( ( L INE ( J , L > , J=1 .NCOMP) ,L = 1 .NUMPPL), 

DO 9 i=lfft,ir:ght 

J=LlNF(IuOMP,I) 
t'lNF (ICOMP,I ) = KN( J + l> 

WRITE OUT QUANTIZED FILE 
WRITE (lOUTFL) (lIME (ICOMP , K) ,K = LEFT, I RIGHT) 

CONTINUE 
ENDFI^E lOUTFL 
REWIND lOUTFL 
RETURN 
END 


ZEOUANSl 

7EQUAM52 

ZrOUAN53 

ZEQUAN94 

ZEQUAN59 

ZEQUANGft 

ZEOUAN57 

ZEOUANftS 

ZEQUAN59 

ZEOUANftO 

ZFQUANftl 

ZECUAN62 

ZE0UAN63 

ZE0UAM64 

ZE0UAN65 

ZECUANftft 

ZEQUAN67 

ZEQUANfaa 

ZEQUANftO 

ZEQUAN70 

ZEQUAN71 

ZE0UAN72 

ZE0UAN73 

ZEQUAN74 

ZEQUAN75 

ZEQUAM7ft 

ZEQUAN77 

ZEQUAN7B 

ZEQUAN79 

ZEQUAN3Q 

ZEQUAN31 

zequans? 

ZE0UAN33 

ZEQUAN34 

ZEOUANSft 

ZEQUAN36 

ZEQUAN87 

ZEQUAN33 

ZEQUAN39 

ZEQUAN90 

ZEQUAN91 

ZEQUAN92 

ZEQUAN93 

ZEQUAN94 

ZEOUAN95 

ZEQUArnft 

ZEQUAN97 
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R7S<< "1 


»tcHRri 


=XEC"TVOfJ »Ef’r”T 


Q> 4 &P 

ttl 
L?L 
^ = H 
RrM 

£ Y^.^kF 
aR 5 S = T Stv'= 

na 


■ I • ^ ^ i< 


1 
2 

3 

4 

5 

6 
7 
B 
9 

10 
11 
12 
13 
1< 

15 

16 
l7 
19 

19 

20 
'21 
22 

23 

24 

25 

26 
27 
29 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
41- 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


r 1 T C « 9 
pTCWRj . 
tVT^^Y POIXT' 

A'JiiSET 


ma9G 

MAYS'JM 

locat 


UDXft 
lOXT 
£4X0 
STxO 
LOX'' 
S3i.x0 
Sf XO 
RETU'R*' 
SYk - sF 
S4V’C 
LXLO 
EAO 
C«<PVC 
TYl 
57N 


E 

abort 


BORHO 


TT 

TAU 


TRJ 
sAXn 

uoxo 

TXZ 

TRA 

too 

TRa 

SY^DcF 
3 3S 
N'JLL 
UC3 
y,''E 

SYy.nEF 

£4X0 

L 03 

SwS 

STO 

STXO 

cAXn 

STxo 

£4X0 

STXO 

TRA 

AOS 

TTF 

TRA 

SY>',''i:F 


l.l’L 
UFSRTS 
1.1 
0(0 
1.0 
tOCAT 
- 1,0 
LCC4T 
r.AX’^’J'l 
aRuSET 
^,• A R 3 

2 . 1 * 

0 

• . DU 

• ♦3 

0. WU . 

7 3 . L • • 

• * I 0 

0.0 

•*2 

,S.L. 

1. DL 

, 3 .L. 

a?ort 

1 


■^SI^CMR Rmap, 

AKSScT S ^ =L-I 0 TT, 

TO SET PIT 7 ' S P'lTl ALI iiE 

pOH'-iARO, 

SET 31 T 35 

trace back “^P 5!^..,, i' 

LOCaTIO*' of wAsT ^ALL /; 

II’ -ars cam use, it; . 

iJrPER OF PROVIDED. 

also FOR '1AR3‘. 

gitci ’ 


. . 


. . 


s 3 'riO?T,I)L 

GEbORT 

bored 

3,1« 

4.1* 

6 

TALI 

tali 

z6H-' 
STR -1 
TW 
STR 
BCR 
2, It 
BCR 
O.lt 
1 - 
fcrRDER 


DO WE HAVE that MANY ? 


NO, 

GO WCHE. 


IS IT A>ULL ROIVTER 7 


yes 

NO 


rPT aDD=SSS of array- 

IV. 

USE FOR TALuY vOJNT 

character T^AT DOES INTO ARRAY 
XED WILL USE- TALLY mcDIFICATICN 

start F!LL1'-’5 

gUK® 3 C°D = R P.'RITI 


PTCH‘*U 

pTC..R0*1 

pTChR1'2 

pTChRG*3 

pTCH°G*4 

PTCh=5?5 

PTCKRGOB 

PTCHRjO? 

pTChRjOB 

PTCKRS09 

PTCih-GlO 

pTCH-'3'-1 

PTC'hRG12 

PTChR313 

pt:-“|R314 

PTC-.RG15 

PTC''*R3‘-6 

PTCPR317 

• PTCMRGi .3 
PTCHRG 19 

PTC-®220 
pTvWRjEI 
PTCPR322 
PTCRRCES 
PT0RRG24 
PTCmRGE5 
PTCh=G26 
,PTCm'G27 
' PTCWR 328 
PT:«=Ge9 ■ 
PTCnRG30 
PTC"RG31 
PTChRG32 
PTCMRG33 
pTCxRGTA 

PT0RRG35 
PTCRRG36 
PTCH5337 
PTCWRGco 
PTCHRG39 
ptchrgao 
PTCRRG^I 
PTCWRG42 
•W PTCkRg43 
PTCWR344 
PTCr'RG45 
,, pTCK = G4S 
PTChR3^7 

PTCi^Rj^S 

PTClRG'9 
PTChRGS" 

ptcwrgSi 


EEPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


Cl a3-05-’l If. 1^2 




FWHCMTIO*^ ‘^b^’O^T 


52 Border 

EAj;,1 

53 

STXn 

54 

EAXC 

55 

STXT 

56 “OR 

LO?]i 

57 

01 V 

58 

CHPr 

59 

vii 

60 

DIV 

61 

LD'j 

62i 

LL5 

63 

TRA 

64 VITEN 

CMP A 

65 

TZE 

66 

UOA 

67 STR 

X:D 

6B 

TRA 

69 FIVE 

LDA 

70 

TRA 

71 TW 

Esn 

72 

TRA 

73 CS 

STA 

74 

STA 

75 

SYMObI 

76 LSHIFT 

'■ SAXO 

77 

LOO 

76 

Ow.5 

79 

STO 

60 

STXO 

61 LD 

LOO- 

62 

0-S 

83 

STO 

64 

ttf 

85 

TRA 

66 

SYY-E 

8:7 SI 

35S 

66 S2 

3SS 

69 S3 

5SS 

90 IFETC 

ri SAVE 

91 

LXL7 

92 

EAX? 

93 

TSXC 

94 SS1‘ 

rSTR 


95 

96 
^7 
96 
99 

ibo 
101 
1C 2 
103 


LXL6 

TNZ 

*.DX2 

TiSxn 

rSTR 

LXL'i 

T7E 

FtD 

T 9 a 


"F 
S^S 
s6hl 
STK-1 
2.1> 
lfl»:?L 
U.CL 
iJtM 
ICi^JL 
hU.< 
3 C 
STR 
5.DL 
FIVE 
• • 

• • 

0.1 

s 6 K» 

SIR 

Till. 

TT 


ID 


4,1* 

L5H1FT 

2.1*- 

3il* 

6 

TALI 
Tit I 
TALI* I 
6 

TALI I ID 
LD 

Oil* 

IfETCM 

I 

i ' 

1 

2*7 
<* 1 * 
2*1* 
CETT . 

51 

7*i» 

• ♦3 
l.CU 
gett 

52 

b 1 1» 

• ♦3 

SI 

rs 


wc r;T'',nl= ot» =it-» = r side of i*^.age data 

CHARACTER FIR VERTICAL BORDER 

C'JRc'rVT LH'.S "-O 'NT 
IS IT DIV 15131 C 3 '' T 5 M 


KAKE^^0;*^DE^T JjSTIFIED, blank filled 
WAS THE KUK’ER "I VIS IDLE BY FIVE 


return if WS ENTsrso AT BORDER 


PUT JN HOR aORDER ARRAY 


ADDRESa, OF array 

NO, elements in arra^ 

USE FOR TALLY tOJN'T 


shift up next GHARACTER 


si FOR INTEGER* 3 "OR FLOATING PT 


EEPKODUOIBILip- OF THE 
OEIGINAI, PAGE IS POOB, 


PTr:MPG52 
PT.0 *1^553 

ptchpgsa 

PT0HR055 

PTCHRG56 

PT0HRG57 

PTCHRGSe 

PTCHPG59 

PT0HRG6 0 

PTCHRG61 

PTCHPG62 

PT:hRG63 

PTGHRG64 

PTCHRG65 

PT:HaG66 

PTCHRG67 

P;TCHRG63 

PTCHRC-69 

PT0HR370 

PTCKRG71 

PTCHRG72 

PTCKRG73 

’ PTCWRG74 
PTDKRG75 
PTCHRG76 
PTCH=G77 
PT:kRG73 
PTGHRG? 5 
PTGMRGfO 
PTCHRG?! ■ 

PTCHRGS2 

PTCHRGS3 

PT0hRg?4 

PT0HR3B5 

PTCHRE56 

PTCHRG57 

PT£hRo53 

PT0HRGP9 

PTEHRG90 

PTOHRG’l 

PT?HRG92 

PTCHRG 9 3 

PTCHRG94 

PTChRG?5 

. PTCHRGSJ 
PTCHRG97 
PTchRG'3 
PT CHRu 9 9 
K- PYtHa-co 
PTCKRGCl 

fTchRg':2 

FTCHRG73 




158 


r.l 33-05-71 1S,15? 


’TCH^a 


execution «E'' 0 ‘ 5 T 


rK 

IE 


iO< 

105 

106 
107 
103 

109 

110 rs 

111 
112 
113 
11 

115 

116 
117 
119 

119 

120 
121 
122 

123 

124 

125 

126 
127 ! 

128 

129 

130 

131 
152 

133 

134 GETT 

135 

136 

137 
133 

139 

140 

141 


ID 

IDO 


01 


LVl? 

OX? 

TSX'» 

rsa 

r-.p 

rsT’ 

» F'.U 
F33 
F«? 

F4D 

F4D 

FOV 

FSB 

E3U 

FDV 

F'lP' 

F4D 

T=L, 

U"’Ai 

JF'A 

AOQ 

Cvpo 

T=>L 

LDO 

RETURN 

T'^i 

LDD 

RETURN 

C'^PX 7 

TZE 

FLD 

TRA 

LD’A 

EAO 

LDE 

FAD 


3.1* 

2*1 

(.ETT 

SI 

6il« 

51 
S 3 

5 2 
Si 

5,1» 

SI 

53 

= 2 | 

Ff'IN 

FM-SSl 

FOIF 

E 

sO,.DU 

• *2 

*0777777777 
71®1C24.'D'J 
l.DU 
EiDL ■ 

• «3 

liDL 

IFETCH 

• *iDL 

• ♦2 

»*i DU 

IFETCH 

liD’J 

3.10 

0.2 

* • 1 0 

0 . 2 ' 

0 

35^1024 ;D■J 
sC.iDO 


142 02 

TRA 

*•.0 

143 , 

S YMO£R 

FI 

1<4 FI 

fid’ 

2 . 1 * 

145 

FS 3 

3 ( 1 » 

146 

F 3 T 

FDIF 

147 

FUO 

3 . 1 « 

14'6 i 

FST 

THIN 

14|9 

UXL'l 

4 < 1 » 

i»o ; 

STXO 

IDO 

151 : 

AOXT 

l.D'J 

152 

STXO 

10 

j 53 

E AA 

0 

154 

EA 3 

- 1.0 

155 

LUS 

18 



PTCasG’A 

PTCh’G'o 

PT0H=3*6 

PTCiJRG *7 

PTChRG'5 

PTCh=G*9 

pTChRgi: 

PTiCH'Gll 
PTCH = G”-2 
PTCH.RG13 
PTCH=G14 

ptcargis 

PTCHRG16 

PTC^'R317 

pyCK=-Gl5 

PTCHRG19 

PTCHRGiC 

PTCH9G21 

PTCHR 322 

PTCHR323 

PTCH=.3 24 

PTCH=G25 

PTCHR326 

PTCKRg27 

PTOK^GEs 

PTCHRG29 

PTCH=g50 

PTCMRjEi 

p;tch=.g3 2 

PTCH.R333 

PTCH=5334 

PTCH5G35 

PTC(4 = 336 

FTCKRG37 

PTCHR33S 

PTCHR33? 

PTCHRG^O 

PTCmRG-1 

PTCKR342 

PTCKR3<i3 

PTCMR3^4 

PTCHR-G^S 

PTCwRG^6 

PTS-iRG*7 

PT2^•R34^ 

PTE*'"G49 

PTCK‘3'3 

FTCh'351 

PT:KR352 

PTCh»S53 

ptouRgs* 

PTCHRG55 


159 


«764« 

*1 02 

-C5-71 

IP. 192 

< 56 


loe 

35*1 -,24 i i^J 

157 


F4D 

=fl.,2U 

15B 


F3T9 

E 

159 


L03 

Oi2 

160 


UL5 

36 

161 


lxlo 

5.1* 

162 


TMZ 

zz 

163 


ri.X'i 

15 

164 

sx ‘ 

STXO 

01 

165 


STXO 

02 

166 

167 

7Z 

T9A 

EiXP 

0.1* 

0 

16S 


T94 

sx 

169 

PDIF 

ESS 

1 

170 

PMlN 

ESS 

1 

171 

BL'JK 

e:i 

ll 

172 


EMD 



=TCM»a 

I 


:-.n£y HXECIITIOM REPORT 


pyrH^G56 

PTCHPG57 

pTCH=G58 

PTCh^g59 

ptchpg‘o 

PTCH=G41 

PT:mPG62 

PTCHPG63 

PT3H=G“« 

FT:H=3fi5 

PTCn=^Gt6 

PTSHPGi? 

PTCK=G6S 

PT”H''G59 

PTCHPG70 

pt:h=ig7i 

PTCM^572 
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02-12-74 19.026 


WRITE FRTS DATA ONTO O.SG 


chrtcsk write erts data onto disc 

VERSION i: WRITTEN BY RJ bOSLEY 


JAN 1974 


C 

c 

c 

c 

10 

100 

c 


description of “ROGRAM. array iline 

9L0CKS. 


INTERNAL PARAMETERS. 
NuSK 
TP 

tpstrt.ipstop 


DISC FILE CODEt 11 THRU 14 
POINT INDEX FOR ERTS LINE 

STARTING, STOPINGPOxNTS IN -INE, 

DEPENDENT UPON THE BAND 


ENTRY V)RT&S><(ILINE,NHOR,IPSTR,IPEND,N3ANOT 


INPUT ARGUMENTS. 
iLlNE 
NHOR 

IPSTR.IPENO 

NBAND 


ARRAY CONTAINING ERTS -INE OF^OATA 
NUM3FP OF HOR-ZONTAL B-OCKS OF 41 COL 
START AND END POINTS E=TS '.INE 
the BAND CESIREj, SET=5 FOR AuE-rOUR 


SUBROUTINE WRTOSK (ILI NE, NHOR , IPSTR , IPENu , N3AN0) 
D. MENSION ILINE (1) 

IF (N9AN0.EQ.5) GO TO 100 
NOSK= 10 +N BAND 


IF AlL BANOS, SKIP DOWN 
WRITE ONE SAND ONLY 
WRITE NHOR BLOCKS 


101 


DO 10 J = 1 .NHOR 

IPSTRT= ( J-l) *41*4+NBAND+IPSTR 

T PSTOP= ”P S TR T+ 40 *4 . . 

WRITEIMDSK) (ILlNE(iP) »iP=IPSTRT,IPST0P,4) 

CONTINUE 

return 

CONTINUE 
03 TO 1 1 = 1 1 4 

NDSK=in*i. WRITE NHOR BLOCKS 

00 101 J=l,NHOR 

IPSTRT= ( J-l> *41*4+I+IPSTR 

TPSTOP=IPSTRT + 40»4 _ . . 

WRITE TNDSK) ULINE (IP) ,IP = IPSTRT ,IPSTOP,4) 
CONTINUE , 

RETURN 

'eno- 


mROD uC]i5lLiT^ Ui<‘ I'iiiiJ 
ORIGINAL. PAGE IS POOR 


WRTCSKPl 

WRTCSKQ2 

WRTCSKOB 

WRTOSKOG 

WRTCSKOB 

WRT'SKQH 

WRTDSKQ7 

WRTDSK08 

WRTI'SKOB 

WRTD5K1Q 

WRTDSKll 

WRTOSK12 

WRTCSK13 

WRTPSK14 

WRTCSKtF 

WRTDSK16 

WRTC.'SK17 

WRTOSKIP 

WRTuSKlB 

WRTDSK2C 

WRTCSK21 

WRTDSK2F 

WRTDSK23 

WRTDSK2L 

WRTPSK2E 

WRTDSK2(' 

WRTDSK2V' 

WRT05K2f 

WRTCSK2'’ 

WRTDSK3C 

WRTDSK3; 

WRTCSK3I 

WRTDSK3' 

WRTrSKS' 

WRTDSK3'. 

WRTDSK3» 

WRTOSK 3'/ 

WRTCSK3. 

WRTDSK3' 

. WRT0SK41 
WRTOSKA 
WRTDSK4 
WRTCSK4 
WRiTDSK4^ 
Wi^TDSK4 
WRjTCSKA- 
WRTCSK4 
Wi^TOSKG 
WRTDSK4 
WRTCSK9 
WRTDSKF 
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oooooooooooooo.ooooooooooooooooooo 


02-12-7<* 


19.07a 


READ niso ANJ OUTPUT o^PiCTURE 


CROOFKl '^EAO disc AND OUTPUT PICTURE 

VERSION lx WRITTEN 3Y RJ BOSLEY 


JA-T 1974 


DESCRIPTION OF PROGRAM. 

This SUBROUTINE READS THE ERTS DATA FROM THE DISC FI>ES AND 
THEN PRINTS OUT A PICTURE OF THE DATA, PROCEEOItJG VERTi.A_LY AND 
THEN FROM LE*^T TO R-GHT. SINCE THE dLOCKS ARE 41 CO_S THFN TWO 
pif ON ONE PAGE. ELIMINATING ONE HALF OF THE TOTA_ lINES. 


INTERNAL PARAMETERS. 
NGL 
NO 

lASIZE 

MHOR 

NCQL 

NSKIP 

LAST 


NUMBER OF GREY LEVELS IN IMAGE 
NUMBER OF QUANTIZING .EVE.S 
SIZE OE ARRAY TO aE QUANTIZED 
HALF OF NHOR 

NUMBER OF COLUMNS USED IN IMAGE 
NUMBER OF RECORDS TO SKIP TO STAY IN 
THE SAME STRIP 

TRUE INDICATES THE LAST STRIP 


FNTRY POINT. 

CALL ROD SKI (IMAGE. QU AN. NHOR, N VERT, NOSK) 

INPUT ARGUMENTS. ^ 

IMAGE array TO STORE TWO 41 X 41.B.3CKS 

qUAN . TRUE FOR EQUA-_ PROBABILITY 3UANTI- 

'ZATION OF THE IMAGE 

max • maximum grey TONE IN IMAGE 

M' N MINIMUM GPEY TONE IN IMAGE 

MHOR HUMBER OF H0RIZ0NTA_ 3.0CKS 

wwcDT NUMBER OF VERTICAL BLOCKS 

MOSK fILE CODE OP DISC TO BE PROCESSED 


SUBROUTINE ROOSKl (IMAGE. QUAN. NHOR.NVERT .NDSK) 

DIMENSION IMAGE(41.a2) 
logical EOF.OUAN.uAST 
EOF=.FA_SE. 

LAST=. FALSE. 

CALL FLGEOF (NDSK, EOF) 


MAX-63 

m:n=o 

IF (QUAN) 

NGL=75 
NQ = 12 


MAX=11 


DETERMINE THE NUMBER OF LEVELS 


SET UP FOR QUANTIZATION 


MhoUNHOR /2 ^^EPi^OBUClBlLI'rY OP TOP 

NC0L = 82 


RDCSKlOl 

RDGSKnZ 

RDDSKlOl 

ROCSK104 

RJDSK105 

RDCSK106 

ROGSK107 

RDDSK108 

RODSKIOR 

RODSKllO 

ROOSKlll 

RDDSK112 

RDDSK113 

RD0SK114 

ROOSKl IF 

R0DSK116 

RD0SK117 

RD0SK118 

ROOSKl 19 

ROCSKlZn 

R00SK121 

R0DSK122 

RQDSK123 

.RDCSK124 

R0CSK125 

RDDSK12G 

RDDSK127 

ROCSKlCa 

RDDSK129 

ROCSK130 

R0CSK131 

RDGSK132 

RD0SK133 

R0GSK134 

R0DSK135 

R0DSK136 

ROD SKI 3 7 

Rb0SK138 

R0DSK139 

ROCSK140 

RODSK141 

R00SK14? 

RUDSK143 

R0DSK144 

R0DSK145 

R0DSK146 

ROOSKl 47 

RDDSK14fl 

ROOSKl 49 

ROOSK150 
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W O O lO 


02-12-74 19.078 


REAO DISC AN3 OUTPUT PiCTURE 


2 

C 

c 


c 

c 

c 


16 
2 0 

C 

c 


50 

100 

C 


IF (NHOP.NE. 1 ) 60 TO 2 

NC 0 L =41 

MH0<? = 1 

iAsiZT:-4i*Nr:0L 


SET THE NUM^E!? OF RECOROS TO 5 XIP 
TO REMAIN IN THE SAME STRIP 

GO THRU HORiZONTA»wY 


IF FIRST BLOCK. 00 NOT SK*P OVER 


NSKIP=NHO°- (NCOl/41) 

DO IQQ J=1»MHQR 
REHINO NOSK 

K=J 

IF(LAST) K=(NH0R/2)^1 
iF(K.EO.t) GO TO 5 

00 1 1 = 2. K . , ■ 

IF tNHOR .C’T.l ) REAOTNOSKT 

reao(nosx» 9:_ock vertically, do 

INITIALIZE SNAP IN PITCHR 

IFlNVERT.NF.l^ ^ 

1 ^ read in two 41 :iY 41 3_OCKS 

00 50 1I=1,NVERT REA041R0WS 

00 20 jj=1.41 columns 

READ(NrSK) (IMAGE( JJ.KOl) .K0L = 1.4i> \xr,. 5 09 . 

IF(NC0L.E0.82), READ(NDSK) ‘ WANTED 

IF <NSKIP • FO* 0) TO 20 

00 16 N = 1»NS^JP=^' 

REAJ(NOSK) / 

IF (EOF) GO TO 20 

CONTINUE 

CONTINUE 

EOF=. false. quantize THE IMAGE 

IFCOUANI call KEaUANa'IAGE.NOL.Ma.iASIZE)^^ 

;ro;il cSrl: 5rrG.,n..cE.Li , »co. , l . .«X , , . I 

CONTINUE 

CONTINUE IF NHOR IS EVEN 

IFtNHOR.EQ.l) 60 TO 101 

IF(NHOR.EQ.(HHOR*2)) GO TO THE LAST STRIP 3F 41 

IF (LAST) GO TO 101 
LAST=.TRUE. 

GO TO 3 


R0CSK151 
RQ0SK192 
R00SKTS5 
RODSKISL 
RD0SK156 
RO.OSKISE 
RODSKl":? 
RODSKlGf 
RDCSKlSf- 
RODSKIoL 
RODSKIGI 
R0CSK16F 
RDDSKIS^ 
RDOSKlfe'- 
R00SK16^ 
RODSKIS*^ 
RODSKl&T 
not R0DSK16' 
R00SK16' 
R0CSK17' 

) R0CSK17' 

R0CSK17' 
ROD SKI 7 ; 
R0CSK17f 
R0DSK17' 
R0DSK17-. 
RO0SK17 
R30SK17 
R00SK17 
RDDSK18 
RDDSKia 
ROD SKI 8 
ROC SKI 8 
RD0SK18 
» ROCSK18 
. ROCSK18 
RODSK13 
R0DSK18 
R00SK18 
RODSK19 
.21,,) ROD SKI 9 
R00SK19 
=-— ROD SKI 
RQOSKl 
ROOSK19 
ROOSK19 
COLS RDDSK19 
R00SK19 
R00SK19 
ROCSKIC 
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CP O' 


-12-74 


19.078 


READ O.SC ANO OUTPUT PiCTURE 


~ WRITE THE OANO WUM9ER 

101 IBANO=NOSK-10 
WPITE(f),in?» I"ANO 

102 F0RMAT(6X, ‘PICTURE FROM 3ANC NUMBER*, -2> 

RETURN 

ENO 


ROOSKlf 

RDD3K1C 

RJOSKir 

R3CSKU 

ROOSKir 

ROOSKir 


M O O O -P O 


2-12-74 20.fl96 


K-E-Q-U-A-N 


CKEQUAN 
C 


K-E-Q-U-A-N 


C 

C 

c 

w 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


10 


1 

c 


WRITTEN nv G. ELLIOT 

VERSION II BY RJ BOSLEY FOR lASIZE 


SEPT 1971 
JJNE 1973 


DESCRIPT. ON^OF^^ROG_^AMp^^ QUANTIZE BY EQUAL PROBABILITY TtE INPUT 
ARRAY lA TO NO lEVELS. 

ENTRY POINT. 

CALL KEQUAN(IA,NGi.tNO,IASIZE) 


ARGUMENTS. 

lA 


NGL 

NQ 

lASIZE 


input ARRAY TO BE CONVERTED TO 
QUANTIZED ARRAY 

NUMBER OF grey TONE LEVELS IN lA 
number of quantizing lEVE.3 
SIZE OF ARRAY lA 


SUBROUTINE KEQUAN (lA, NGLtNQtlASIZE) 

DIMENSION TA(1) ,KN(512) 

IFINGL.GT.BIB) WRIT£( 6 , 10 » , . . 

FORM A T ( 5 X ************ ^number OF GREY LEVE.S TOO LARGE 

uO 1 1=1. NGL 


KN;(I)=0 
DO 2 I=1,IASIZE 

J=IA(I» 

KN(J+D=KN(J*1)*1 

NP=IAS:ZE 

J=l 

MQ=NQ 

DO 3 I=1*NQ 
N-=NP 

NL=NL-MQ*KN(J) 

NP=NP-KN(J) 

KN(J)=I-1 

J=J*1 

IFfJ.GT.NGLV GO TO 6 

IF (MQ*KN ( J) .LE.NL*?) GO TO 4 

HQ=MQ-l 
DO 5 I=J.NGL 
KNCI)=NO-l 
GO TO 8 


COUNT EACH GREY wEVEL 


GO THRU NQ LEVELS 
GET NEW LEVEL 


Check for last i.evel 

INCREMENT AGAIN FOR LEVEL 
DECREASE NO. OF LEVELS LEFT 


4 

J *1 


KECUANOl 
KEOUAN02 
KEQUAN03 
KEOUAN04 
KEQUAN05 
KEOUANOF 
KEQUAN07 
KEQUAN08 
KEQUAN09 
KEQUANIO 
KEQUANll 
KEQUAN12 
KEQUAN13 
KEQUAN14 
KE0UAN15 
KE0UAN16 
KEQUAN17 
KEQUANie 
KEQUANlc 
KEQUAN20 
KEQUAN21 
KEQUAN22 
KEQUAN23 
) KEQUAN24 
KEQUAN25 
KEQUAN26 
KEQUAN27 
KEQUANZa 
KEQUAN29 
KEQUAN30 
KE0UAN31 
KEQUAN32 
K'eoUAN33 
KEQUAN34 
KEQUAN35 
kEQUAN36 
KEQUAN37 
KEQUAN3P 
KE0UAN3‘' 
KEQUAN4C 
kEQUAN41 
KEQUAN4C 
KEQUAN43 
■KEQUAN44 
kEQUAN4t 
KE0UAN46 
KEQUAN47 
KEQUAN4P 
KEQUAN4F 
KEQUAN5C 
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N= (NQ-! »/2 
iF(N.LT.l)GQ TO d 
00 7 1=1, NGu 
KH(I> -KN <- )+N 

00 9 I=1,*ASIZF 

J=IA(I) 

lA (I) =KN(J*ll 

RETURN 

ENO 


SET LAST uEVEL 


ASSIGN ELEMENTS TO A 


KEO'JANGl 

KEQUAfi'^Z 

KEQUAMG3 

KEQI'ANGi, 

KEOUANS*? 

CEVEL AND RETURN KE0UANG6 
KEQUAN‘57 
KE0UAN53 
KEQUAN‘59 
KEQUANGO 
KECUAN61 
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READ J-SC ANO LIST GREY TONES 


CR00SK2 

C 


read disc ano list grey tones 


VERSION II WRITTEN BY RJ BOSLEY 


JAN 1974 


DESCRIPTION OF PROGRAM. «.ir 

THIS SUBROUTINE READS DATA FROM DISC F-LE N3SK AND PRINTS OUT 
THE GREY TONES ANO WRITES THEM OUT ONTO AN OUTPUT TAPE. 


INTERNAu PARAMETERS. 
K 

LINE 


BAND BEING PROCESSED 
ERTS LxNE BEING READ 


ENTRY pqqsj^2(image,irstrt,;rstop,nhor,ndsk,prnt,ta?e, IF id 


INPUT ARGUMENTS. 

IMAGE 

IRSTRT, IRSTOP 

: NHOR 

NDS< 

PPNT 

TAPE 

IFIL 


ARRAY TO READ DATA INTO 
STARTING. STORING LINES OF DATA 

NUMBER OF HORIZONTAL BLOCKS 
FILE CODE OF JiSC WITH DATA 
true FOR GREY-TONE ,ISTING 
TRUE FOR TAPE OUTPUT 
OUTPUT TAPE FILE CODE 


SUBROUTINE RD DSK2(IMAGE. IRSTRT. IRSTOP.NHOR.NOSK.PRNT.TA^E.IFIl) 


DIMENSION IMAGE(41.41) 
logical pent. TAPE 
REWIND NDSK 
K=NDSK-10 

IF (PRNT) GO TO E 
IF (TAPE) GO TO 3 
RETURN 


IF NEITHER TAPE NOR PRINT. RETURN 


WRITE HEADING FOR ^IST 

FORMATUhl.'^LINE STRIP* .20X .’ BAND NUMBER IS*. 12) 

GO THRU EACH LINE OF DATA 

DO 50 L I NE = I RS TRT . I RSTOP _ tuct runrc 

GO THRU EACH BwOwK ACROSS THE IMAGE 

DO 50 J = l .NHOR • ' ^ 

READ ONE LINE 

READ(NDSK) (I M AGE ( I . KO _ ) . KOL-l . 4 1 ) 

WRITE IT OUT 

IFIPRNT) WRlTE(6,100) ul NE . J . ( IMAGE ( 1 . KO_ ) , KOL =1 . 4 1 ) 

IFCTAPF.) WRlTElIFIL) LI NE . J * C IMAGE ( 1 . KOl ) . KOL” 1 . 4 1) 

CONTINUE 

F0RMAT<1X.I5.I3.41I3) 

RETURN 

END 


RODSK201 

R00SK2n2 

RDDSK203 

ROOSK204 

RODSK205 

RJDSK2nB 

ROOSK207 

ROOSK208 

R0DSK2Q9 

RDDSK210 

R0DSK211 

RJDSK212 

RDDSK213 

RDDSK214 

R00SK215 

R00SK216 

RD0SK217 

RDDSK2ta 

RQDSK219 

RDOSK220 

R0CSK221 

R0CSK222 

RDDS:<223 

R00SK224 

R0DSK225 

RDCSK'226 

R0DSK227 

R0DSK2?8 

RD0SK229 

RODSK230 

R0DSK231, 

RD0SK232 

R0DSK233 

RDCSK234 

RDDSK235 

RJ0DSK236 

R0DSK237 

RDDSK233 

R0DSK239 

RDCSK240 

RD0SK.241 

R0DSK242 

R0DSK243 

RDDSK244 

R0DSK745 

R0DSK246 

RD0SK247 

RD0SK243 

R00SK249 

RDDSK250 



IV.2-b Texture Analysis Program Listings 
MAINLN 

ERTS (see IV.2-a) 

Aaing 

KEQUAN (see IV. 2 -a) 

PITCHR (see IV.2-a) . 

FPLXIT 

INDEX 

IMOMTR 

COR 

lEQPQl ^ 

R I TOUT f 


1-0 o O O o 


t 


0?-12-74 20.547 


CRTS TEXTURE ANAuYS.S 


JUNE 1973 


ERTS TEXTURE ANALYSIS 

WRITTEN TY RJ BOSLEY FOR PROCESSING LAWRENCE O^A 
VERSION 1 BY RJ BOSLEY FOR PROCESSING ERTS DATA 
VERSION 2 BY oj BOSLEY FOR MERGE OPTION 


JUNE 1973 

S-PT 1972 
NOV 1972 
JJNE 1973 


MAI'NwNQI 

MAINLN02 

MAINLNT* 

MAINLN04 

MAINLN05 

NAiNLNnO 


PROGRAM TITLE 

written by 
-'ATE WRITTEN 
SITE NAME 
SITE ADDRESS 
phone number 


TEXTURE ANALYSIS 
RJ BOSLEY 
JUNE 1973 

CRIMC. UNIV OF KANSAS 
LAWRENCE, KANSAS 
1-913-364-4832 


,»»*,******»»***»**START or DOCUMENTATION COMMENT - Af"'DS********** 

MAiNuNDg 

MAINlNIO 

PRO--.RAM identification. ^ . MAINlNH 

PROGRAM- TI TLE - TEXTURE ANALYSIS MAINLN12 

WRITTEN BY - RJ BOSLEY MAlNuNlJ' 

-'ATE WRITTEN - JUNE 1973 maINi.N14 

SITE NAME - CRIMC, UNIV OF KANSAS MAIN^NIB 

SITE ADDRESS - LAWRENCE, KANSAS MAINLN16 

phone number - 1-913-364-4832 . MAINi.Nt7 

i ' MAINuNlf' 

i CATE OF modification. MAINlN19 

; ' JUNE 1973 — MODIFIED FOR MERGE OPTION. MAINunIi 

MAINLN2? 

; hardware / software SUMMARY. MAINLN23 

' . ' MAINLN2 4 

COMPUTER REOUIREO f hOMNEYWELL 635 MAINLN25 

SYSTEM EXECUTIVE ^GE^pS III MAINLNCf 

MEMORY REQUIPED ji/.g MA’NLNR? 

PROGRAM language ' TAPE DPIVFS MAINLN2P 

PERIPHERALS - OtlE((SjRATbH DISK, TWU . MAINlN2" 

, ■ HAINAN SC 

, PURPOSE. 1^ ANALYSIS PACKAGE WAS T-'-HNlCUES HATNLN32 

process ERTS IMAGERY DATA USING PATTERN REuO^NxT.ON T-.-HNlDUES. JJ-^Np 

I HAINLN34 

; ""sE?''UANu use SLASSIEICATION-.TEOH. report (.0.2262-I.JARUARY 

i MAINLN37 

I INPUT. • MASN-N-TP 


CATE OF MODIFICATION. 

JUNE 1973 -- MODIFIED FOR MERGE OPTION. 
hardware / SOFTWARE SUMMARY. 


COMPUTER REOUIREO f hOt|NEYWELL 635 

SYSTEM EXECUTIVE \ GEipS III 

MEMORY REQUIPEC rY.o 

dpogRA^ ‘ AMGUAGE -4FQR*teAN AND GMAP 

■pER^pjERSlr - \>y(fs>RAIEH DISK. tPO tAPE DRIVES 

PURPOSE. analysis PACKAGE WAS VRIH^W 9^?^^ t-'-mnIDUES 

PROCESS ERTS IMAGERY DATA USCNG PATTERN RELwOi,NiT.ON T--HN1DUES. 


.PARAREIERiCAROS.^^^ INIS CARD IS USrO FOR HUE INFORNAUON 

AND IS LISTFD ON THE OUTPUT LASTING. 

2. parameters ACCORDING TO THE FORTRAN NAME.IST FORMAT 
UNDER THE NAME PARAM, SEt BEuOW. 

OTHER INPUT. 

ERTS IMAGE DATA TAPE ON INPUT FIwE CODE ’ES** 

aborts. 


MAINLN37 

MAllNs-N-TH 

MAINuN39 

MAINLNLf 

MAIN1.N41 

MAINLN4T 

MAINLN47 

MA1NLN4I 

MAINwNL' 

MAiNLN4t 

HAINLN4/ 

HAINLN4f 

MAINuN4' 

MAINlN5( 


REPEODXJCIBILITY OF THE 
ORIGINAL PAGE IS POOH 


I 


02-12-74 20.547 


ERTS TEXTURE ANALYSIS 


JUNE 1S73 




II 


■j 

1 

i 

I 

1 


SPECIFIED IN OUTPUT LISTING. 

OUTPUT. 

PRINTER OUTPUT. 

I 1. parameter VALU'=‘S. 

2. PICTURE OF image REIMG PROCESSED. 

3, uOORui.NATES OF HE IMAGE. 

t... VALUES OF TPE EXTRACTED FEATURES. 
5. ^ISTING OF LFX ARRAYS. 


1, CQOPOINATES OF THE IMAGE RFING PROCESSFO. 

?. VALUES OF THE FEATURES EXTRACTED. 

I 3* lARO count. 

tAPE^OUT^UT.^^^^^^^^ OF T=^E IMAGE OEING PROCESSED. 

I 2. VALUES OF THE '"’EATURES EXTRACTED. 

^^^j!^'"0ATA^kT IS STANCARO ERTS OATA TAPE * -P . .. 

THE NUMGER OF POINTS IN ONE LINE 0^ THE STR.P 3E.NG 
PROCESSED MUST MOT EXCEED 192 POINTS. tkitc 

3. THE SIZE OF PASH IMAGE MUST NOT EXCEED 4096 POINTS. 

4. ‘ OUANTIZATION MUST -JE 32 LEVElS OR -ESS, 

6, THE ERTS INPUT TAPE MUST HAVE A FitE wODE ES . 

(j! IBANu MUST NOT EXCEED FOUR. 

SUdIpROGRAMS REQUIRED. 

HAiNLN 

ERTS READ PROGRAM 
i 1 MAING 

I KEOUAN 

j PiCTUR 

I FPLXIT ■ 

INDEX - • 

I ,, IMOMTR 

INDEX " ■ , ; 

COR 
lEQPQl 
■ : RITOHT 


♦ i CAj?0 iSETUP FOR SAMP_E RUN., 


$ 

$ 

t 

% 

$ 

% 


:OENT 9999«ANYNAME 

library lb 

OBJECT M-A-I-N-L-N 

... ERTS texture ANALYSIS PROGRAMS . 

uKEND 
EXECUTE’ 

FAaBISPOOB 


MAlIl 

ma; 


HAINLN91 
HAINuN92 
MAINLN53 
MAINlN54 
HAINI.N55 
MAINLN56 
MAINLN'^7 
MAINlN‘5'5 
MAINLN59 
HA:Nl.N60 
MAINLN61 
MAINlNB? 
MAINuN63 
MAINLN64 
MAINLN65 
MAINlNBB 
MAINlNG/ 
MAINLN66 
MAINLN6° 
MAINuN7C 
MAINLN71 
:nln7? 

IINLN7? 
MAiNLN7A 
MA1[NlN 7F 
MA!lNi.N7f- 
MAiNLN7? 
MAlNuN7t 
MAINLN7C 
MAINLNar 
MAINLN31 
MAINLN8C 
MAlNLNSr 
MAINLN8^ 
MAINLN8'' 
MAINi.N8£ 
MAINLN37 
MAINcNS? 
MAINLN8<- 
MAINlNPC 
MA1NLN9^ 
MAINLN9: 
MAINLN9‘ 
MAINi_N9' 
MA|INLN9< 
MAINLN9f 
HAINLN 9 
MAINLN9 
MAINLN9' 
HAINLNOi 
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erts texture analysis 


JUNE 1073 


$ 

$ 

$ 

$ 

% 

xxxxx 

SPARAM 
S 


PRHFL L9.R f S.PATTTRN/GEE/-: B 
tape ES»A10D.»B9999«.NNAME, input 

DSPK 02tA?R.5_ 

LIMITS 32*4iK»t?7/K 

1NC02E I3MF vvwy 

TEST 0- TEXTURE ANALYSIS PROGRAMS XXXXX 

N11=1,PNCM=1HN,PICTUR=TSEND 

FNDJOn 


PICTURE OF THE IMAGES. 

ei3uIOGRAPHY. .,n 97f?-i JAN. 1973, 'LAND USE 

: i‘N;oRH.no. i. erts- »es i.^erv 

' BY K. ShANMUGAM,R. HARALiCK, R. BOSLEY. . 

— END OF DOCUMENTATION COMMENT , aRDS* — 

; description OF PROGRAM. TFXTURE ANA YSIS PROGRAMS. 

■ ii- 

= 'r4-0»rTrpr=0^-;A:RsTu3?«rEl No IE. TRE SEC0« FE0» 13 

C TO 24, ETC, UP -NPUT^TAPE IS PROCESSED IN 

2 DUE TO CORE T.p tq iqp 'POINTS, HORIZONTALLY. 

C STRIPS WITH EAcH STR^P TOTALING ' 3 SJBIMAGES. 

r. 11,6), «mD NUMSTR is 1. FOR RUN 2, Nil 

c i ‘ =o!.r; 

^ 2J^,5?Ni^E“!«"rJLfTl}E TO HE E» IRE iH.OE, WHERE HWMST, 

C IS the stp.p number kf.at.ve to T. E 3 eL-nning 0- each 

C ALSO that the .^.T^a^POl.JS 

I inA^E^ST THE end of 'eAGH TAPE THAT CANNOT 3E PROCESSED. 

' OESORIPTFOH OF IHPU. O.R*»E-TER| OHOEP^HAHE.IRt 


NOUANT 

NUMIM 

NUM3TR 

NBVERT 


IPIIT PARAMFT'^RS UNU^-K nHnci--3« - 

;s;sj„“3"En^^iMOEi“^A^<E^^;R?"oS;rc:/;H‘oHE 

PAS5 

the strip number of THE RUM IN -JELATION TO THE 

the NUMDER^OF^IMAGES IN A VERT COL 0= THE STRIP 


MAINlNOI 

MAIMlNAE 

MAINi.NQ'? 

MA1NLN04 

MAiNLNnS 

MA! NlNOF 

MAlNuNL17 

MAINLNnt^, 

MAINLNQR 

MAI NLNIC 

MAIN 1 .NII 

MAINLN12 

MAINuMlS 

MAINLN14 

MA:N'_N15 

MAI NLN16 

MAIN_Ni7 

MAINuNlF 

MAINlNI'^ 

MAINLNCr 

MAI NwNZ: 

MAINuN?r 

MAINi-N2 7 

MAIMLN2' 

MAI N.N2' 

ma:nln 2^ 
MAINuN2‘. 
MAINLN2 • 
MAINlNO' 
M.AIMLN3 
MAINlN 3- 
MAINLN3' 
MAINLN3 
MAINLN3 
MA1NLN3 
•MAINuNT 
. MAINLN3 
MAINV.N3 
MAINLN3 
MAIMLN4 
MAINlN4 
MAI NlN4 
MAINLN4 
MAI NuN4 
MAINLN4 
MA:NwN 4 
MAlNcNA 
MAINlNA 
MAINlNC 
MA1NLN5 
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ERTS TEXTURE ANALYSIS 


JUNE l'T73 


NUMLIN 

NUMPPL 


IHAND 

PNCH 


Nil 

IF 

N5SKIP 

MERGF 

PiCTUR 


IN EACH NUM^iN X NUHPPL 


•IHAGE 

192 


1 TO 4 


C 

C 

c 


THE NUH'^ER OF L.INES 
SUO-IMACE 

THE N'lMTER OF PTS PER LINE IN FACH SU9' 

♦•’NOTn* **N'JMPPL*NUMIM 'TUST NOT EXCEED 
***EXAHPLE*»^1F NUNPPw = 64 1 then NUHI!1=3 
••«FXAHPLE»»*IF NUMPPl=32. THEN NUMIM=4 
THE SPECTRUM BAND TO BE PRO I ESSEO . FROM 

SPECIFIES TnE OUTPUT OPTION Y.rOR CARDS. T 

FOR TAPE, AND N FOR PRINTER ONLY 
•♦♦NOTE^^’PNCH MUST BE DENOTED AS A HOL^-ER.TH 
constant in the DATA lARO 
THE UPPER lFFT COLUMN COORDINATE FOR THE STRIP 
BEING PROCESSED 

THE FI.-E CODE OF TPE OUTPUT TAPE — ASSUMED TO BE 
IN POSITION 

THE NUMBER OF VERTICAL ROWS OF SUB-' MAGES TO 
BE SKIPPED 'PR-OR TO EXECUTION 
IF .TRUE.. THE lEX ARRAYS WILL BE MERGED TO ONE 
IF .TRUE.. A PICTURE OF EAlH SUIIMASE WILL 9E^ 

■ PRINTED 

♦**NOTE***^PPOCESSING *S. APPROXIMATF.Y — 

100 PERCENTS MERGE-OFF, PICTUR-ON 
125 PERCENTS .MERGE-ON .PICTUR-ON 
l5a PERCENTS MERGE-ON .PIOTUR-OFF 


O.MENSION ILINE(4096) .TITLE (14) 

COMMON /U/ NQUANT 

COMMON Ml.Nl.F'dS) ,IH AX, IMIN, NUMPPL. NUMLlN,NB'.jBL.IRl»IR2.IR3,iR4, 
1 0UMMY(29 ) .lEASTI.NRED.NwAYFR.NSTART.NTIMES.ND.PNCH 
COMMON /E''/£NTRDP(4>, DIFENT (4 > . DIF AVE ( 4) . DIFV AR (4) . SUMENT (4) . 
1S'JMAVE(4) ,SUMVAR(4) 

COMMON /CORRFu/CORlNF (4) , . ORMUT ( 4 ) . CORN AX ( 4 ) 

COMMON IMAGE (64, 192) 

LOGICAL MERGE, PICTUR : | 

NAMELIST/PAR AM/NUMIM, NUMSTR.NBVERT, I BAND .Nil , MERGE, PIC TUR. NBSKaP., 
I PNCH . NUMPPL,., NUMlIN .NPED. N LAYER. NSTAR T . NT! MES . NQUANT .IF 
uATA I BANl. . NUMIM.N3VEFT. N3 3KIP, MERGE. PICTUR, Nll/2. 3 .36. 0. .TRUE . . 

1 .FAlSE. .l/,TAPE/lHT/,NUMSTR/l/,iF/03/»T/lHY/.N/lHN/ 

PNCHsTAPE 
NUMPPL =64 
NUMLIN=64 
NP£0=l 
N'.AYERsl 

NSTART=1 ; 

NTIMES=1 
NfJUANT = 16 

♦ •♦♦****»**5(rQ jjofj I --PREPARE ',\FOR ERTS READING AND PROCESSING* 


MAINLN51 

MAIMLN62 

MAI NLN53 

MAINI.N54 

MAINLN55 

MAINLN66 

MAINLN67 

MAINuNSa 

MAINLNSQ 

MAI NLN60 

MAINlN61 

MAINuN6? 

MAINLN63 

MAI NLN64 

MAIN»N65 

MAIMlNoE 

MAIN,N57 

MAIMLN6? 

MAINLN59 

MAINLN70 

MAINwN71 

MAINuN72 

MAIMLN73 

MAINLN74 

MAINLN7= 

MAIN.IN76. 

MAINLN77 

MAINLN7g 

MAINLN79 

MAI NlN.3 0 

MAINtNAl 

MAIN1.N32 

MAINLNA3 

MAINLN84 

MA1NLN.85 

MAINLN-36 

MA I NlN.37 

MAINLN8P. 

MAINLN.89 

MAINlNOO 

maIinln9i 

MAINLN92 

MAINLN93 

MAINLN94 

MAINlN95 

MA1NLN96 

MAINLN97 

MArNLN98 

•MAINLN99 

MAINlNOO 
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ERTS TEXTURE ANALYSIS 


JUNE H73 


C 

C 

c 


21 

6 


C 

c 


c 

c 

c 

2 

c 


11 


4 

c 

c 


c 

c 

c 

c 

c 


READ title and WRITE IT OUT 

REAO(5,P.) (TITlE (I) ,1=1.14) 

HRITE(6,21) 

HRI TE(f>, 7 ) (TITLPC) ,1 = 1,14) 

rORMAT(///////40X,‘ERTS TEXTURE ANALYSIS*////) 
PORMAT ( 13A(=i, A2 ) 

FORMAT(20X,13A6, A2///7) 

READ ERTS TEXTURE PARAMETERS 


.N EACH line 


101 


REAOCS.PAOAM) 

M=NUMIH*NUMPPL 
IF<M.LE.192) GO TO 2 

WRITE(6,1) ^ 

FOPMATT* NUMBER OF IMAGES TIMES THE NUMBER OF POiNTS 

IMUST NOT EXCEED 192 *) 

STOP 

INITIAuIZE THE ERTS READ PROGRAM AND WRITE OUT PARAMETERS 
CALL EINIT (LENGTH) 

WRITE(6,11) LENGTH, NUMIM,NUMSTR,N9VERT,I6AN0 ,NBSR-P 
WRITE(6,101) PNCH,NUMPPL,NUM.IN,NREO,MSTART,NTIMES,NQUANt; 
eORMATdOX, ‘LENGT^^ OF ERTS uINE IS *, ^ _ ^ . 

1 15,* POINTS’ / lOX ,* NUM5'=’R OF HORIZONTAL IN ARES , NUMiM, i',> ,x2,X 

210X,*THTS STRIP IS NUMBER ’ , 12 , /lO X , ’ NUM3F R OF VERTICAL IMAGES CO 
3TAINEn IN STRIP IS • , 1 2 , / 1 OX , ’ PROCESS! NG WILw BE ON BAND *,I2,/ 
410‘X, ’SKIPPED DOWN ’,13,’ VERTICA_ IMAGES BEFORE START. NG * ////) 
FO:RMAT(10X,’PUNCH = *,A3, ’ NUMPP_ = ’,I4 ,*NUMwIN = ’,I4,’ nr ED-*, 13, 
1* NSTAPT= • , 13 . ' NT1MES=* , 13 , ■ NQUANT=*,I4) 

IF(MERGE) WRITE(6,3) 

FORMAT (// lOX, ’THE FOUR ^EX ARRAYS HAVE BEEN MERGED INTO ONE ASRAY 

1 //) 

IF (.NOT.PICTUR) WRITF(6,4) 

FORMATC THE PICTURE OPTION IS OFF ’///) 


7/^1. 


SKIP THE FIRST NBSKIP ROWS OF IMAGES 

NOSK=NUMLIN*N3SKIP 
CALc ESKIP(NOSK) 

GO DOVfN THE STRIP ■ 

IMAGE COORDIMATES (Ml.Nl) ARE TRANSFERRED IN COMMON 
Ml GIVES THE ROW «.OUNT GOING DOWN THE STRIP 

I“EGIN= ( ( NUMSTR- 1) * (192*4 ) ) ♦ I3AND 


t 


HAINlNQI 

hainlno? 

MAINuNOB 
MA1NLN04 
HAINAN 09 
MAINlNOE 
HAINAN 07 

;mainlnor 
MAINLNO g 
MAINlNIO 
MAINLNll 
MAINLN12 
MAINLN13 
MAINLN14 
MAINlNIS 
MAINLN16 
MAINLN17 
MAINLNlft 
MA1MLN19 
MAINLN20 
MAINLN21 
MAINLN22 
MAINLN23 
MAINLN24 
MA1NLN25 
MAINlN26 
MAINLN27 
MA:NwN28 
NMAINlN2° 
MAIN.N30 
MAINI.N31 
MA INlN 32 
MAINLN33 
MAINuN34 
MjAINLM35 
MAINLN36 
HAINlN37 
HAINuN38 
MAINLN39 

Hainlnao 

MAINlN41 
HaINLN 42 
MAINLN43 
■MAINLN4 4 
MAINLN45 
riAI N lN 46 
MAINLN47 
MAINLN40 
MA1NLN49 
MAINwNGO 




Of 
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ERTS TEXTUPE ANALYSIS 


JUNE 1073 


C 

c 

c 

c 

c 

c 

c 

c 

c 

■b 

c 

c 

c 

c 

c 

c 

c 

c 


00 

go 

c 

c 

c 

c 

c 


MOVE THE IMAGE TO THE RIGHT OY EIGHT POINTS 
I3EGIN=iePGIN*32 

JSTOP = :pEMN + ( (NUMIM*NUMPPL) *4)-It3AND 

NR=NPSKIP+1 

00 99 Hl=NGfNQVERT 

^ j ' il— READ ERTS AND MOVE DATA INTO IMAuE******** 

I, INE IS THE ARRAY INTO WHICH THE ERTS DATA IS READ-^'-'ILiNE AND 
TWORK QSE THE SAME STORAGE SPACE 
MOOWN GIVES THE ROW COUNT *N IMAGE FROM 1 DOWN TO NUMlIN 

DO 90 MC0WN=1.NUMLIN 

READ ERTS LINE 3Y wINE • 

CALL EREAD(ILINE,LN) 

LN, RETURNED BY EREAD, G.VES THE lINE NUMBER, OR ERROR INDICATION 
IF (LN.FQ. 0) 60 TO 996 

MOVE EVERY POINT IN THE wINE THAT BELONGS TO IBAND, iNTO IMAGE 
JBTOP GIVFS THE STOPPING PO^NT IN ILiNE FOR THE TRANSFER 
THE TRANSFER IS INGREMENTED 3Y 4, THE NUMBER OF BANOS 
LIOUNT GOES FROM 1 TO NUMPP».’'NUMIM , GIV..NG THE LENGTH ^OUNT 

LCOUNT=0 

00 80 IP0:NT=IEEGIN,JStbP,4 
LC0UNT=_C0UNT+1 

IMAGE (MOOWN,LCOUNT) =I LI NEC I POINT) 

CONTINUE 

CONTINUE 

IMAGE IS FULL, START TEXTURE ANALYSIS 
♦ •♦**•♦* **SECT I ON III--PROCESS IMAGE. BLOCK BY B-OCK*******^*^* 


■ Jr . ■ 

BLOCK IMAGE INTO NUMLlN X NIjMPPw 8 LOCKS//fOR PROCESSING 


KR = 0 

DO 60 JBl0CKf 1,NUMIM 
KS=KE+t 

KE-KS+NUMPPL-1 
K'-=0 4 ■ 

DO 59 KLINF=l,N'JMwIN 


{M "il./ 


c 

c 

c 


Kw GOES FRO^ I TO N3R OF PTS WHILE KCOL Gi.VES THE COLUMN COUNT 


MAINwNBl 
MAINlNB? 
HAINlN53 
MAINwN54 
MAINuN55 
MAINLN56 
MAINLN57 
*MAINlNS8 
MAIN_N59 
MAINLN&O 
MAINuNol 
MAINLNH? 
MATNi.N6 3 
MAINLN64 
MAIN1.N65 
MAINLN65 
MAINLNB7 
MAINLN6? 
MAINLNBo 
MAINLN70 
MAINlNTI 
MAINLN72 
MAINLN73 
HAINi.N74 
MAINlN75 
MAINLN76 
MA*NlN77 
MAINLN70 
MArNLN79 
MAINlN80 
MAINLN81 
MAINLN82 
MAINLN37 
MAINLN34 
MAINLN35 
MAINLN36 
MAINLN37 
MAINLNSa 
MAINlNSB 
MAINLNOO 
MAINLN91 
MAINlNBZ 
MAINLN93 
M;aINLN94 
HAINLN95 
MA1NLN96 
MAINLN97 
MAINLN9P. 
MA1NlN9'^ 
MAINLNOO 


EI: 3 :^EODUCIBILnY OF 
ORKilKAL PAGE IS POOK 
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JUNE 1973 


58 

59 


c 

c 

c 

c 

60 

99 

C 

C 

c 

c 

c 


c 

c 

c 

992 

993 


C 

C 

C 

996 

997 


03 58 KCOw=KS,KE 
K-=KL+1 

T.INE <KL ) =IMAGE(K-INEfKCOw) 

OONTIMUE 

CONTINUE 

Ni=(Nii-i )+ jblo:k 

USE ILINE AS A DUMMY ARRAY TO SEND IWORK TO MAING 

CAL.. MAINr,(iLlNE,MERR»MERGE,PlCTUR»IF) 

CHECK FOR ERROR CONDITION IN MAING 

IF (MERR.EO.l) GO TO 992 
CONTINUE 
CONTINUE 

section IV— enj of strip, finish up»»*******’^ 

PUT AN EOr MARK ON OUTPUT. FILE IF AND WRITE ANOTHER RECORD 
ENOFILE IF 

HRITE(IF) (ILINE (K) ,K=1, 10) • 

■ STOP :c • ■ 

ERROR DETECTED — -WRITE' FILE MARK AND ANOTHER RECORD 

WRITE(6,993) Ml.Nl /, , , , 

FORMATdOX, 'ERROR IN SUDROUTxNE MAING, uAST IMAGE WAS ( ,.2» » , 

1I2,*) •) 

ENOFILE IF 

WRITE(IF) (ILINE (K) ,K=1, 10) 

STOP 

ERROR DETECTED WRITE FILE MARK AND ANOTHER RECORD 

FQRMAdinxI 'UNEXPECTED EOF ON ERTS, LAST ROW ^OMPlETEO WAS 'tlS) 
ENOFILF IF 

WRITE(IF) (ILINE (K) »K=1, 10) 

STOP 

ENd' 


MAINL'IO 
MAI NLNQ 
HAINLNQ 
MAIMlNO 
MAiNLNO 
ma!in..nq 

MAIN-NQ 

MAINLN'l 

MAINLNO 

MAiI'Nw N 1 

MA'INlNI 

MAIN.Nl 

MAIN.Nl 

MAINLNl 

MAIN'.Nl 

MAINLNl 

MA: N^Nl 

MAINLNl 

MAINLNl 

MAINuN2 

MAI Nt.N2 

MAINLN2 

MAINlN? 

' HAIMLN2 
MA1NLN2 
MAINLN2 
MAINLN2 
MAINLN2 
MAIN..N2 
MAINLN7 
MAINLN3 
MAINlN 3 
MAINLH3 
MAIN.'d 
MAI NlN3 
. MA1NLN3 
MAINLN3 
' MAINLN3 
MAINLN3 
MAINLN4 
MAINLN4 
MAINLNU 
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JUMP, n/3 


CMft 

C 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


:ng 


ERTS n-A-I-M-G 


JJME 1973 


MRITFEN 

VERSION 

VERSION 

VERSION 


3Y 

1 BY 

2 BY 
6 BY 


RMH 

RJ BOSLEY 
RJ BOSLEY 
RJ BOSLEY 


DATE 


FOR LAWRENCE DATA 

POR ERTS uATA PROCESSING 

FOR merge option 


OCT 

SEPT 

NOV 

JUNE 


1971 

1973 

1973 

1973 


THE i»AGE !N i«ORK ESP P£JCH, 

;:i5%H“r?R5:fss£rfr. .e,oro;ng to fee 

subroutines pOR THP -EX ARRAYS, CALCULATING TriE TEXTURE 
AND THEN WRxTTING OUT THE RESULTS, 


ENTRY POINT, 
CALu 

ARGUMENTS, 


MAING(IWORK,MERR»MERGE,PlCTU.R, IF) 


IWORK 
MERR 
MERGE 
PICTUR 
IF 

INTERNAL PARAMETERS, 

NUMLIN 

NUMPP- 

NOIM 

NQ 

IMAX 

IMIN 

IS 

IE 

NGL 

lASxZE 

HORZ 

VERT 

LEASTl 

N08L 

NBUPL 

i.l.,.L6 


THE NUMi-*N*NUMPP- IMAGE ARRAY 

error f-ag for lex array size 

OPTION TO MERGE THI.POUR LEX ARRAYS 
OPTION TO PRINT PICTURE OF THE j-MAGE 
FILE COuF FOR OUTPUT TAPE IN RITOWT 

THE NUMBER OF -INES IN THE I MAGE ^ 

THE NUMBER OF POINTS PER IMAGE Lj.NE 
MAXIMUM allowable SIZE OF THE LEX 
ARRAYS, NUMPP--*NUMf.IN 


maingoti 

MAING002 
MAINGOBB 
HAINGOO 4 
MAINGOnS 
MAINGOOG 
MAINGOO / 
MAIM&QQP 
MAINGO n° 
MAlfiGQlC 
FEATURESMAINGOll 
MAINGOl? 
HAINGOIB 
MAI NG 014 
MAINGQIE 
MAINGOlf 
MAINGD17 

maingo le 
maingole 

MAIKG02C 
MAIMGOPl 
MAINGO 2? 
MAING02: 
MAING024 
MAING02P 
MAING02L 
maingo 2 f' 
MAINGO 2H 


NUMBER OF QUANTIZING -EVELS FOR- KF QU ANMA INGO 2^ 


MAXIMUM GREY TONE LEVE- IN IWDRK 
MINIMUM GREY TONE LEVEL IN IWORK 
STARTING PT 0 ~ A ROW OF IW3RK 
ENDING POINT OF THE ROW IN iWORK 


NUMBER OF GREY TONE lEVELS IN IWORK 
SIZE OF IWORK ARRAY 

HORIZONTAL SCA;.E FACTOR FOR PIT^HR 
VERTICAL SCAiv.I FACTOR FOR RITCHR 
ONE GREY tome ;';'EVEL BE-OW iMlN 
number of GREY" TONE lEVELS IN IWORK . 

THE NUMBER OF LEVELS IN THE TRIANGUl A^MA ^ N u04 
lex array MAIMGD4 

ADDRESS INDEXS FOR THE LEX ARRAYS 


MAINGOSr 
MAING03' 
MAINGO 3L 
MAINGO 3' 
MAING03' 
MAINGQB'^ 
MAING03' 
MAIMG03; 
MAING03. 
MAINGO 3' 


SUBROUTINE MAING (I WORK, MERR, MERGE, PICTUR, IF) 


logical merge, P iCTUR 
DIMENSION IWORK (4096) 


MAING 0 4. 

maingo 4 

i|ia:ngo4‘ 

MAING04' 

MAING04i 

HAING04 

MAING04 

MAING04- 

MAING05 
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C 

c 

c 

c 

c 

c 

c 


DIMEN5;iON G(64» iI'HG'** 

CO^N ^?:rmrU5.,IMAX,lMIN.NUMPPL.NUMLIN,NDUBL.:Rl.iR2*:^ 

^:SMroyrE’;fN?rop;4noiF^ 

^COMMON *aGORPEE/GO^ ( 4 ) , CORMU T (4 » , CORMAX ( 4) 

CnMMOf4 IMAGE (64, 19?) 

NDI M=NUMPPL*NUMuIN 

N0 = 32 


12 

13 


C 

C 

C 


20 

C 

c 

c 


c 

. u 


c 

c 


REWIND SCRATCH FILE, COPY IMAGE 
THE SCRATCH EIv.E, AND OETERHINE 


IN A 'line 3Y line fashion ONTO 
THE MINIMUM AND MAXIMUM GREY 


REWIND 2 
FIRST, 


QUANTIZE THE ARRAY TO NQ LEVELS FOR PICTURE AND 


IMAX=-10000 
iMIN=lQOflO 
00 13 J=l,NUMuIN 
IS=NUMPPL*( J-1) *1 
IE=NUMPPL*J 

IF (IMIN.Gt!iWORK(I<) ) IMIN=IW0RK(K) 
IF (IMAX.LT.IWORK(K) ). IMAX = IWORK (K) 
CONTINUE 

continue 

ngl=imax+i 

IASIZE = NUMPPL'^NUMLIN 

CALL KEQUAN(IWORK,NGL ,NQ,IASiZE) 


COPY 


IMAGE ON SCRATCH FILE AFTER QUANTIZATION 


00 20 I=1,NUMlIN- 

IS=NUMPPL*(I-l)Tl 

IE=NUMPPL*I 

WRITE(2) (iWORK(K) ,K=IS,IE) 
CONTINUE 


THE MAXIMUM AFTER 

IMAX=NQ-1 

1MIN=0 


KEQUAN quantizes TO NQ LEVElS IS NQ-1, MINIMUM 


test for PICTURE OPTION 
IFC.NOT.Pi-CTUR) GO TO 16 
TRANSPOSE IWORK FOR PITCHR 


MAING061 
MAING0G2 
HAINGn53 
MAING064 
MA1NG055 
MAING0R6 
MAINGD57 
MAING058 
MAING05° 
MAINGOf'O 
MAINGQ61 
HA:nG062 
TONEMAING053 
MAING064 
MAING06E 
MAINGOSf 
EFFICIFNCYMAING067 

MAING068 
MAING06<^ 
MAING07C 
MAING071 
MAING07i 
MAiNG073 
MAING07< 
MAING07f 
MAINGQ7t. 
MAING071 
MAING07, 
m!aING0 7' 
m'aingqb 

MAING08- 
MAINGOB' 
MAING08 
. HaINGOB' 

MAINGOB' 
MA INGOB 
MAINGOB 
MAINGOB 
MAINGOB 
MAIMG09 
tOMAINGOg 
MAING09 
MAING09 
MAIMG09 
MA1NG09 
MAING09 
MAINGO° 
MAING09 
MAING09 
HAINGIO 


g|#g01>ljClBlLITY 0^ THE 
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JUJJE 


15 


14 

C 

/» 

V 

c 


16 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


e 

c 

c, 


c 

c 


L»0 

00 14 I = l.NUMuIN 
U = L*1 

I«; = NUMPP_* (I-H ♦! 

IF=NUMPPL*I 

K=0 

00 15 J=I?.IE 
K=K*l 

IMAGE«L.K)=IW0RK(J> 

CONTINUF 

CONTINUE 

PRINT OUT PICTURE OF THE IMAGE , 

HORZ= (64. 0*0.90) /FLOAT (NUMPPL) 

V£RT= (64. 0*0 .75) /FLOAT ;,!vjMi.:N) upot ) 

CALli. PITCHR(IMAGE»NUMLiN,NUMPPL.0»l»0»iHAX»»0» ,,.HORZ»V -RTt 

LEA5T1=IMIN-1 

NOBL IS THE NUMBER OF 5RI6HTENESS cEVELS 

N03L=IMAX-LEAST1 • 

NBUBL IS THE NUMBER OF _EVELS IN THE TRIANGULAR LEX ARRAY 

N3U3L=N0BI*(N03L+1)/2 
SET UP THE INOEXS FOR THE LEX ARRAYS 

Ll = l 

L2=L1+NUMPPl*2 

i.3=L2*N3U=IL \\ 

L4=L3 + NBUBL 

L5=L4+N3U3L ^ 

L6-L5+NBU9L-1 

CHECK THE SIZE 

IF (L6.6T. NDIM) GO TO 78 
004 NN=NSTART,NTIMES 
REWIND 2 
NlATER=NN-1 

GET the lex arrays 

CALL FPLXIT(lWnRK(Ll> ,IW0RK:(L2» , IWORK ( L 3 ) , IWORK ( L4) , IWORK ( L5 > » 
1 NUMPPL. MERGE) ; 

calculate THE TEXTURE FEATURES q 


MAINGIO 1 
HAI NG102 

Haingios 

MAINGIO 4 
MAING105 
MA1MG106 
MAING107 
MAINGlOa 
MAING109 
MAINGllO 
MAING111 
MAING112 
MAING113 
MAING114 
MAING115 
MAI NG116 
MAING117 
MAlNGlia 
MAiNGllR 
MAING120 
MAING121 
MAING122 
MAING123 
MAING124 
MAING125 
MA1NG126 
MAING127 
MAING128 
MA1NG129 
MAING130 
MAI NG131 
MAjING132 
MAINGI 33 
MAI MG 134 
MAING135 
MAINGI 36 
MAINGI 37 
. MAINGI 3 a 
mAING139 

MA|ING141 
mAinG 142 
MAING143 
’MAING144 
MAING14I 
MAING14f 
MAINGI 47 
MAING14P 
MAiNG145 
MAING15C 


‘‘"ssrsizs 
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CALL IMOHTR (iWORK (-2> »I WORK (Li) ,:WORK (L4» i IWORK(L5> ,G,I3»NERGE) 
OUTPUT THE TEXTURE DATA 

CALL Ri TOUT ( lW0RK(-2) *IW0R< <L3» t.WORK (LA) , IWORKCLS) , G t IT* MERGE * I F. 
I PICTUO) 

A CONTINUE 

. SET ERROR INDICATOR TO NO ERRORS 

MPRR=0 

RETURN 

78 WRITE(6), lOA) NDTM,L6 

lOA F0RNAT(6H N0IM=,I5,16H NDIM MUST BE = .I7)- 
MERR=1 
RETURN 
END 


HAINGIG 
MAING15 
HAINGIS 
MAINGIG 
HAING15 
, MAING15 
m'aingis 
MAING15 
MAING15 
MAINGIG 
MA I NG 16 
M’AINGIG 
MAiNGie 
M’AINGie 
MAINGl 6 
MAING16 
MAING16 
MAING16 
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CFPLXir 

C 


C 

C 

C 

C 

G 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C - 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


WRiriFN 

VE9SI0N 


OY RMH 
I BY R J 


F-P-L-X-I-T 


90SLEY FOR MERGE 


JUNE 1973 


JUNE 


SEPT 

1973 


1971 


D^SCRIRTION of progpam. 

THIS SUPPOUTINE COMPUTES FOUR NEAREST NEIGHBOR GREY TONE MA- 
TRICES* LEXli uEX3, LEX3* AND LEX4 FOR ANGLES OF 90-OEGREESt 
T-OEGREFS* 1 35- CEC-RERS * ANj 45-0EGREES RESPECTIVELY. 

INCLUDED IN THIS SUBROUTINE IS AN OPTION TO MERGE TriE FOUR lEX 
ARRAYS INTO ONE* LEXl 


ENT»Y POINT. 

CALL FPLXIT(I0ATA*LEXI*LEX3,LEX3,LEX4,HUMPPL,MERGE» 


ARGUMENTS* 

ICATA 

LEXl-LEX** 

NUMPPL 

MERGE 


INTERNAL PARAMETERS. 
NPU9L 

1ST 

NNO 

NRED 

NLAYER 

MM 

FILE 2 
I*J,L,K 


WORKING ARRAY FOR TWO LINES OF IMAGE 
ADDRESS IMDEX3 FOR lEX ARRAYS 
NUMBER OF PTS PER IMAGE LINE 
-'OPTION TO MERGE THE FOUR LEX ARRAYS 
''4NT0 one array* LEXl 


N,'iiM3ER 
/ LEX 


INDEX Cl* J) 


OF LEVELS IN THE TRIANGULAR 
ARRAYS 
POINTER TO FIRST LINE 
POINTER TO SECOND LINE 
BASE FOR IMAGE REDUCTION 
THE POWER TO WHICH NRED IS RAISED 
AMOUNT OF REDUCTION OF THE IMAGE 
SCRATCH FILE CONTAINING THE IMAGE 
GRk’Y TONE VALUES OF NEIGHBORING 

'^'resolution CELwS* one to each ANGLi 
FUNCTION USED TO RETURN A SINGLE 
SUBSCRIPJ FOR THE LEX ARRAY 
INDICATING WHERE Ei-EMENT (I*J) CAN 
BE FOUND 


SUBROUTINE FPLXIT(IDATA,LEX1*LEX2*LEX3*LEXA* NUMPPL* MERGE) 

DIMENSION IDATA(MUMPPL*2) *LEX1(1> ,LEX2(t» ,LEX3(1) *LEXA(1) 
COMMON M1*N1*TYPE*P(1 A) 

COMMON 1 1 , 12* NNMPPL * NUML IN .N3U3L «IR1 * I R2 * IR3* IRA * DUMMY (29) 
COMMON leasti*nreo*nlayfr.mstart,ntimes 

logical mfrge 


INITIALIZE LEXl. LEX2, LEX3. AND LEXA ARRAVsG TO 7ERO 
DO 10 I = l.NQUBL 




FPLXITO 1 

FPLXITf)-’ 

FPLXITQ.3 

FPLXITdA 

FPLXinS 

FPLXITOA 

FPLXIT07 

FPLXITO-o 

FPLXirn<- 

FPLXIT in 

FPLXiril 

FPLXIT12 

FPLXIT13 

FPLXITlif 

FPLXITl'^ 

FPLXIT If 

FPLXIT17 

FPLXITlf 

FPLXIT i: 

FPLXIT2T 

FPLXIT21 

FPLXIT25 

FPLXIT25 

FPLXIT2A 

FPLXIT2‘^ 

FPLXiT2C' 

FPLXIT27 

FPLXIT?? 

FPLyiTEP 

FPLXIT3C 

FPLXIT31 

FPLXIT3T 

FPLXIT 37 

FPLXlT3'i 

FPLXIT3'^ 

FPLXIT3f 

FPLXIT 3> 

FPLVITSf 

FPLXIT3'' 

FPLXITf.r 

FPLXITA1 

FPLXITAl 

(fPLXITA7 

tfPLXITAi- 

pLXlTAf 

FPlXITA-' 

FPLXITAT 

FPLXITA? 

FPLXITA'- 

FPLXIT5C 


REt'BOBtlGIBlLrlTy GF THE 
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10 


C 

C 

C 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


LEXl (I) 
LEX2<I» 
uFX3 (I» 
LEX4 (I) 


= 0 
= 0 
= 0 
= 0 


IRl 

IR2 

I<»3 

194 


1ST POINTS TO FIRST LINE« NNO POINTS TO SECOND LINE 


MUCH THE IMAGE WI 
ICh THE IMAGE WIL 
T‘^E POJER NLAYER. 
NRFO*<fNLAYEP.» WE 
GTION BASE AND Irt 
ED = 2f AND NCAYE 
9Y THE PARAMETER 
MILL YIELD FOUR 
.1/2, 1/4, AND 1/a 


LL 3E RECJCED. 
u BE REDUCED. (IT 
» THEN, BY OEFININ 
HAVE A >-INGLE FACT 
E AMOUNT OF THE RE 
R RANGES FROM 0 TO 
MTIMES (SEE *MAI.N 
IMAGES THAT MIlL 3 
RESPECTIVELY, 


1ST = 1 
NNO = 2 

MLAYEP indicates by HOW 
NREQ IS THE FACTOR BY Wh 
BASE WHICH IS RAISED TO 
QUANTITY MM, WHERE MM = 

THAT DETERMINES THE REDU 
ION. IF, FOR EXAMPLE, NR 
THIS RANGE IS DETERMINED 
THE RESULTANT PROCESSING 
CES3IVELY REDUCED 3Y I, 

•MM = NRE0»*NLAYER 
NUMPL2 = NiJMPPL/MM 
DO lit <><l=l,MM 
DO ill KK2=1,MM 

GET THE, FIRST LINE OF DATA FROM DISC FILE 02 
DO a LL=1,KK1 

8 READ(2) (IDATA(L,IST) ,L=l,NUMPPL) 

N = 0 

DO 29 J=KK2,NUMPPL,MM 
N - N + 1 

29 IDATA(N.IST) = lOATA (J,IST) 

MMM=MM+KK1 

DO 1 LCNT = MMM,NUMLIN,MM 

GET THE SECOND LINE OF DATA, AFTER EACH ITERATION, THE OLD 
ONO LINE BECOMES THE NEW FIRST LINE, 

DO la LL=1,MM 

18 R£AO(?> (IDATA (L,NN0) ,L=l,NUHPPLl 

N = 0 ' , 

DO 19 J=KK2,NUMPPL,MM 
N = N ♦ I 


OR 

DUC- 
3 — 

•) , 

E 


FPLXIT91 

FPLXIT52 

FPLXIT93 

FPLXIT94 

FPLXITSG 

fplxitgg 

FPLXIT97 
FPLXlTEa 
FPLXITS9 
FPLXITGO 
FPLXITftl. 
FPLXIT62 
FPLXITGS 
FPLXltE4 
FPLXITGE 
FPLXITGf) 
IS THEFPLXITG7 
G THE FPLXITG.a 
FPLXITB9 
FPLXIT70 
FPLXIT71 
FPLXIT72 
SUC-FPLXIT73 
F PL X IT 74 
FPL XI T 75 
FPLX1T7G 
FPLXIT77 
FPLXIT73 
FPLXIT79 
FPLXITaO 
FPLXirai 
FPLXIT32 
FPwXira3 
FPLXIT34 
FPLXIT35 
FPLXIT30 
FPLXIT37 
FPLXIT3H 
FPLXIT39 
FPLXIT90 
FPLXIT91 
FPLXIT92 
FPL XI T 93 
FPLXIT94 
FPLXIT95 
FPLXIT96 
FPLxIT97 
FPLXIT93 
FPLXIT99 
FPLXITOO 


>• 


SFC- 


BEPRODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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19 I0ATA<N,NND) = I0ATA(J,MH9» 


C 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SET I. L, J. ANO K EOUAL TO THE INOSMALlZEOl 
OF RESOLUTION OFLLS IN POSITIONS (I'f.ISH t 11 
(2,NNC) RESPECTIVELY. 


VALUES OF GREY 
,NND». <2.ISn. 


FPLXITnt 
FPLxiTaa 
FPLXiTna 
rONESFPLXiT 04 


I = 
J = 
L' = 
K = 


IDATA(l,I3n.. - LEASTl 
lDAT'A(2*ISn - LEAST! 
lOATA(l.NNO) - LEASTl 
IDATA(2»NND> - LEASTl 


OUT TWO dimensional INEORMATION ^ .Jr AY IMM ( ^ 

FUNCTION NEEDED TO CONVERT A TOUSLE SU3..RIPTF_D ARRAY, IMM^ 
INTO A SINGLE SURSCRIPTED ARRAY , ^ I MM ( Z ) , IS ‘ ’ 

F(Y), WHERE G(X) = (X-H*X/2, ANj F(Y)- - Y. THEREFOR 

THIS IS OONE^IN THE PROGRAM 3Y THE EXTERNAL FUNCTION, 


AND FPLXIT05 
FPLXITOG 
FPLXIT07 

FPLXlTn“ 
FFLXIT09 
FPL XI T 1 0 
FPLXtTll 
FPLXIT12 
FPLXITiS 
FPLXIT14 
FPLXIT15 
FPLXITIG 
FPLXIT17 
INDEX (X,Y) .FPLXITl« 
FPLXIT19 


cTwrF THF ODDER OF OC'URRENCE OF THE GREY TONES BEwONGING TO A 
RrfoLUriON cell ?AIP is IMMATERIAL, THE ARRAYS ARE SYMMETRIC. 

tSf LARGFR of the two HAVE THE FIRST SUBSlRIPT, I»E., 
THE^ARRAY IS STORED IN lOWER TRIANGULAR FORM. ThE ORDER OF SU3 

SCRIPTING IS AS FOLLOWS, 

• IMMd.l) 

1MM(2»1» 

IMM(2,2) 

IMM(3,1» 


IMM(1> 
IMM (2) 
IMM (3» 
’iMM (4» 


N3UBL = N03L*(N03L + 
TONES IN THE APRRAY. 


IMM(N03L,NOBL) - IMMCN3U9L), 
l)/2, AND NOBL IS THE TOTAL NUMBER OF GREY 


"rOPEY loNE "f -I- iltH. AT YOST. FOUR GREY TONES OF ITS 
BORING RESOLUTION CELLS. 


FPLXIT20 
FPLXIT21 
FPL XI T2 2 
FPL XI T 23 
FPLXIT24 
FPLXIT25 
FPLXIT2F 
FPLXIT27 

|PLXIT2F 
fFPl.):iT2° 
FPli'xiTTO 
FPLXIT31 
FPLXIT3? 
FPLXIT3" 
FPLXIT34 
FPLXIT3E 
FPLXIT3e 
FPLXIT3/ 
FPLXIT3f 
FPLXIT3^ 
FPLXIT4f 
F? LX IT 4' 
FPLXIT4T 
FPLXIT4 y 
NFIGH-FPLXIT4' 
FPLXIT4‘ 


THAT *1* NEVFR NEFOS TO CONSIDER MORE THAN 
tAN BE SEEN FROM THE DIAGRAM OF THE SEARCH 


J 

K 


FOUR NEAREST NE1GHB0RSFPLXIT4' 
PATTERN SHOWN BELOW FPLXIT4'. 

FPLXIT4' 

FPLXIT4' 

FPLXIT5( 
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FPLXIT51 

ON A r,iVEN'irEC-AriON, T* WILL LOOK FIR^f AT ITS 

NEIOh'^O" CL*». NEXT AT ITS NEAREST HORIZONTAL NEIGhOOR < J >* 

THIRd'aT its low-® P.IGHT NEIOHaOR {’K*)» ANl) FOURT-i AT ITS LOWER FPLX:T5' 
LFFT^DIAGONAL NEIGrtOCR (*N*». M* THE MOVES INTO THE POSITION 0FFPLXIT5 
THF LEFT-MOST '■'^SOLUTION CELL OF THE PREVIOUSLY SCANNED 5ECON0 FPLXxT-.. 
Hol (THE POSITION oSlEO 8Y ‘M-). l^hE OPERATION IS REPEATED UN-FPLXIT5', 
TIL ALL NEIGHBORING PAIRS OF RESOLU.^Ij’pN 


MAKE COUNT FOR THE FIRST TWO 


IL = INGFXd.L) 

COUNT vertically 
TWO COLUMNS. 


'"’ii 

COLUMNS. 


♦ 1 


LEXKIL) = LEXl(IL) 
IRi = IRl ♦ 1 

IJ = INOFXd.JT 

COUNT HORIZONTALLY 
FIRST TWO COLUMNS. 

LEX2dJ) = LEX2dJ) 
IRE = IR2. + 1 

IK = INOFXd.K) 


COUNT "LEFT PIAGONALLY' 
FOP. FIRST TWO COLUMNS. 


AOJACENT (0-DEGREE) NEAREST NEIGHBORS FOR THE 


♦ 1 


LEX3(IK) = LEX3dK) 
IR3 = IR3 *• I 


CELLS HAVE BEEN EXAMINED. FPLXITS^ 

FPLXITS^ 
FPixiTBl 

’ fplxite: 

FPLXITEr 

fplxitg- 

FPLXITfc' 

FPLXITOc 

ADJACENT (9H-DEGREE) NEAREST NEIGHBORS FOR FIRSTFPLXITo- 

FPLXirrv 
FPLXIT6' 
FPLXIT7' 
FPLXIT7i 
FPLXIT7: 
FPLXIT7. 
FPLXIT7' 
FPLXIT7' 
FPLXIT7I' 
FPLXIT7-, 
FPLXIT7- 
FPLXIT7' 
FPcXIT 9' 
FPLXiTSr 
FPLXIT8' 
FPLXIT9- 
FPLXIT-8. 
FPL XI T 3' 
FPLXIT3' 
FPLXIT3- 
FPLXIT3 
FPLXIT3 
FPLXlTn 
FPLXIT9 
FPLXIT9- 
FPL XI T9 
FPL X IT 9- 
FPLXIT9' 
FPI.X1T9' 
FPLXIT9. 
FPLXIT9 
FPLXIT9 
FPLXITO 


ADJACENT (135-OEGREE) NEAREST NEIGHBORS 


*■ 1 


NOW SHIFT ONE COLUMN TO THE RIGHT AND CONTINUE THE 
PROCEDURE FOR GENERAL CAS*^ IN WHICH A RESOLUTION CELL (D HAS 
ONE vertical NEAREST NEIGHBOR (L). ONE hORiZONTAL (J». 

ER. RIGHT DIAGONAL (K). AND ONE LOWER LEFT DIAGONAL (M). ITERATE 
UPj TO NEXT TO LAST COLUMN. 

DO 2 N = 3,NUMPL2 

I - J 

M = L ■ 

L = K 

J = I0ATA(N,IST) - 
K - iDATA(N«NND» ^ 


LEASTl 

LEASTl 
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.2 


IL = INDEX(ItL) 

COUNT VERriCAtLX ADJACENT (90-OEGREE» NEAREST NEIGHOORS. 

LEXltlL) = lEXl (IL» ♦ I 
IRl = IRl *^1 

IJ = INDFX(I,J) 

COUNT HORIZONTALuY ADJACENT (O-DEG^EE) NEAREST NEIGHQ3RS. 

LEX2 (IJ>= LEX2(IJ» + I 
IR2 = IR2 <• 1 

IK i INDEX (I. K) 

COUNT 'LEFT DIAGONALLY* ADJACENT (135-OEGREE) NEAREST NEIGHDORSi 

LEX3 (IK) = LEX3(IK) +1 
IR3 = IRl <• 1 

IH = INDEX(I.M) 

COUNT 'RIGHT DIAGONALLY* (45-DEGREE) ADJACENT NEAREST NEIGHSORS, 

LEX4 (IM) = LEX4 (IM) + 1 
IR4 = IRA 1 

CONTINUE 

MAKE COUNT FOR LAST COLUMN. , 

I = J 
M = L 
L = X 

IL = INDEX (I,L) 

COUNT vertically adjacent nearest NEIGH90RS FOR LAST COLUMN. 

LEXKIL) = LEXl(IL) + 1 . \ - 

IRl = IRl 4- 1 . 

IH = IN0EX(I,M) 

COUNT 'RIGHT DiaGONALLY* ADJACENT NEAREST NEIGH90RS FOR THE LAST 
COLUMN. -0 

LEX4(IM) - LFXVdM) ♦ 1 
194 = IR4 ♦ 1 


FPLXITPl 

FPLXirO? 

FPLXIT03 

FPLXIT04 

FPLXIT05 

FPLXlTQf. 

FPLXITT7 

FPLXlTn'^ 

FPLXIT09 

FPLXITn 

FPLXITU 

FPLXrfl?. 

FPLXIT13 

FPLXir 14 

FPLXIT15 

FPLXIT'lG 

FPlXIT17 

FPLXIT18 

FPLXITID 

FPLXIT2Q 

FPLXIT21 

FPLXIT22 

FPLXTT23 

FPLX:T24 

FPLXIT25 

FPLXIT^5 

FPLXIT27 

FPLXITZa 

FPLXIT2D 

FPLXIT30 

FPLX1T31 

FPLXIT32 

FPLXIT33 

FPLXIT34 

FPLXIT35 

FPLXIT36 

FPLXIT37 

FPLXIT3>) 

rPLXIT3D 

FPLXIT43 

FPLXIT41 

FPLXIT42 

FPLXIT43 

FPLXIT44 

FPLXIT45 

FPLXIT4C-) 

FPLXIT47 

FPLXIT4>) 

FPLXIT49 

FPLXIT50 
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C INTERCHANGE THE ElNE POINTERS. 

C 

MN = 1ST 
IST = MNH 
NNO = MN 
C 

1 CONTINUE 
C 

c MAKE COUNT FOR LAST ROW. 

C 

IsIQATA ( 1 ,IST) - LEASTl 
J=iOATA ( 2.IST » - LEASTl 
C 

IJ = INOEX(I.J) 



FPLXIT51 

FPLXIT5? 

FPLXIT53 

FPLXIT54 

FPLXIT55 

FPLXIT5b 

FPLXIT57 

FPLXIT'^’’ 

FPLXITG'^' 

FPLXIT60 

FPLXI Tfil 

FPLXIT62 

FPLXIT5E 

FPLXITCt. 

FPLXIT6S 

FPLXITof 


C 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


COUtir HORIZONT.LUY ACJAOENI MEAREST NEIGHBORS FOR FIRST TRO COL- 
UMNS .'F LAST ROW. 

LEX2(IJ> = LEX2 (IJ) + 1 
IR2 = IR2 + I 

COMPLETE COUNT FOR LAST ROW. 

00 12 N = 3,NUMPL2 

1 = J 

j = IOATA(N,IST) - LEASTl 
IJ = INOFX(I.J) 

COURT horizontally ADJACENT NEAREST NEICH90RS FOR REHAINOER OF 

last row. 

LEX2 < IJ) = LEX2 (IJ) ♦ ;1 
IR2 = IR2 + 1 
CONTINUE 
REWIND 02 

CONTINUE ; - " 

NON DOUBLE THE DIAGONAL TO MAKE EVERYTHING COME OUT RIGHT 
N0BL=Il-I2+i 

00 100 I=1.N03L • 

II=lNOrX (1,1) 

LEX1(I1) = ?*LEX1(II) ; ,, 

L^X2 (II) =2*LE>^2(II» 

LEX3(ll)=LEX3(iI)*2 
LEX4(iI)=LRX4(II)»2 
100 CONTINUE 


12 


111 


BEPBODUCBMTY 0P the 

N-L-F>T/-TnLt AT DA 7117 Tff pnm?- 


FPLXITB7 

FPLXITSf 

FPlXITBi: 

FPLXIT7C 

FPLXIT71 

FPLXIT7: 

FPLXIT7: 

FPLXIT7' 

FPLXIT7' 

FPLXIT7' 

FPLXIT7; 

FPLXIT7; 

FPLXIT7' 

FPLXIT3 

FPLXITT 

FPCXITB 

FPLXIT3 

FPLXI T8 

FPLXIT3 

FPLXIT3- 

FPLXI T3 

FPLXIT8 

FPLXIT3 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXIT9 

FPLXITO 
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IF I.N9r.ME!?GE) RETURN 

IF MERGE IS TRUE, SUM ALL ARRAYS INTO LEXl 
00 112 1=1 ,NBU9L 

LEXH I)=lEX1(I» +LEX2II) +LEX3 ( I » +LEX4 (I » 

112 CONTINUE 
PETUON 
END 

769 WORDS OF MEMORY USED 3Y THIS COMPILATION 


FPLXITQ 

FPLXITO 

FPLXITQ 


FPLXITO- 

FPLXiTO 

FPLXITO 

FPLXITO. 

FPLXITO 

FPLXITO 


iaEPEODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 
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1 


i-n-o-e-x 


WRITTEN PY RMH 


SEPT 1971 


rruFN THF ROW ANO COLUMN SUBSCRIPTS I ANO L » INDEX 
T^r^^NGU SUBSCRIPT FO^ THE LEX ARRAY INDICATING 
ELEMENT 5i,L) CAN '<E FOUNO. 


RETURNS 

WHERE 


1 

2 T 

4 5 6 

7 8 B 10 

FUNCTION INCEXdiLJ 
INOFXKItL) = (I-D’^I/? L 
IF(I.GT.L) GO TO 1 
INDEX = INnEXKL»I» 

RETURN 

INDEX = INOFXKI.L) 

RETURN 

END 


INOEXOOl ii 
INCFX0Q2 i 
INDEXOno f 
INUFXUQ'- f 
INDEXQQ? f 
INOFXOOf i 
INCEX0 07 ij 
INOEXOn^ ii 
INCFXOQ'- i| 
INDEXQir I 
IMDFXnil I 
INDEXQl? I 
INDEXOi: I 

INDEXni'. i 
INDEXQl' i 
INDEXOlf 
INOEXOl' 
INDEXOI' 
INDEXOI' I 
INDEX0 2r i 
INDEXS2; i 
1NDEX0 2; I 


TT TTY 0^ 
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LMOMTf? 


I-M-O-M-T-R 


VERSION l^OY^SAM SHANMUGAM FOR LAWRENFE DATA 
VERSION 2 GY RJ BOSLEY FOR MERGE OPTION 


JUNE 1973 

SiPT 1971 
JUNE 1972 
JUNE 1973 


THE 'ETITTRe S..T .TIDE US 

OEFWO OFlOv, UHOER rrXIURA. FEATURES. FROM THE LEX ARRATS, 
ACCORDING TO TNE MERGE OPTION. 


^'^^CALL*^IM0MTR(-EX1,LEX2.-EX3,LEX4.F* IQ. MERGE) 


ARGUMENTS . 

LEX1-LEX4 

F 

n 

MERGE 


INTERNAL PARAMETERS. 

ANGMOM. . .CORMAX 

nquant 

NQUAN2 

IMAX 

IMIN 

IR1-IR4 

R1-R4 

QO 

P(XY) 

NOQL 

NA001-NA004 


address INDEXS for LEX ARRAYS^ 
CUMULATIVE OISTRI3UTION FUNCTION 
quantized output array of lEQPOl 
OPTION TO MERGE THE FOUR -EX ARRAYS 
INTO ONE ARRAY 


TEXTURA'- FEATURES--SEE 3EL3W_ __ 
number OF QUANTIZING lEVELS rOR *tQi ' 

TWICE NQUANT c 

maximum number Of GREY TONt -tVtLS 
minimum number of grey TONE -EVE-S 
THE NUMBER OF RESO.UTION CELu PAxRS 
INVERSE OP 1RI-IR4 

COUNTED IN EACH LEX ARRAY _ _ ^ 

SCRATCH array USED BY SUBROUTiN:. uOR 
ARRAY OF JOINT PROBABI-ITIxS 

number of grey tone levels _ 

SUM OF ELEMENTS Or THE LEX ARRAY 


textural features. 
angmom= sum sum P (I ♦ J) *P <i ♦ J* 
I J 


AMEAN= SUM SUM I*P(I»J) 
X J 


AMEAN= SUM SUM J*P<I.J) 
1 J 


SGMASQ= SUM SUM (' ( I - A MEAN) **2 ) *P ( I . J> 


IMOMTRO 1 
IMOMTR02 
IMOMTR03 
IMOMTR04 
IMOMTR05 
IMOMTRQG 
IMOHTR07 
IMOMTROe 
IMOMTRHB 
IMOMTR in 
IMOMTRll 
IMOMTR12 
IMOMTR13 
IM0MTR14 
IHOMTR15 
IM0MTR16 
IMOMTR17 
IM0MTR18 
IM0MTR19 
IMOMTR20 
IMOMTR2t 
IMOMTR22 
IMOMTR23 
IMONTR’^L 
QllM0MrR25 
IM0MTR2E 
IM0HTR27 
IMOMTR2" 
IM0MTR29 
IMOMTR3Q 
IMOMTR31 
! IMOMTR32 
IMOMTR33 
IMOMTR34 
1MOMTR35 
IMOMTR36 
:homtr37 
IM0MTR38 
IMOMTR39 
1MOMTR40 
IM0MTR41 
IMOMTR42 
IM0MTR43 
■IM0MTR44 
IH0MTR45 
IM0MTR46 
IMOMTR 47 
IM0MTR4P 
IMOMTR49 
IMOMTRSn 


l^EBg§B^OIBIUTY OF- THE 
f)RIO|N4L ?AGE IS POOR 
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I J 

<;GMASQ= SUM SUM ( ( J- AME AN) **2 ) *P ( I » J) 

I J 

*;GMAXY= sum sum (I-AMEAM) *J- AMEAN)P (I » j) 
; J 


’V0HOM= SUM SUM ( P ( I . J ) / ( 1 + C t J)**2» 
I J 


ratio=sgmaxy/smgasq 

ENTROP=-SUM SUM P ( I » J) LOG ( I » J) ) 

I J 


0IF(K)= SUM SUM P(I*J) 

A3S(I-J)=< 

SUM(K) = SUM SUM Pd.'J) 

I + J=K 

OIFENT = SUM OiF <K)*LOG (0_F (K)) *(-l) 

K 

OIFAVE = SUM K*0IF(K) 

K 

OIFVAR IS THE VARIANCE OF THE DISTRIBUTION DiF 


note that 

D-FMOM=?» (SGMASQ-SGMAXY) l- 

THE INTEGERS 1,2, 3, 4 FOLLOWING THE VARiAB^E NAMES CORRuSPONOb 

TnE FOUR ANGLES — 

SUaSCRilPT 'ANGLE 

lex array moment ARRAY 

1 3 90 DEGREES 

2 1 0 DEGREES 

, 4 135 DEGREES 

L ? 45 DEGREES 


IM0MTR5 I 

I MOMTR52 

I MOM T '{5 7 

IM0MTR5't 

IM0MTR55 

IMOMTR56 

IMOMTR57 

IMOMTRF*^ 

IMOMTR‘^° 

IMOMTRen 

IMOMTRf.1 

IM0MTR6? 

IMOMTRF3 

IM0MTR64 

IM0MTR65 

IM0MTR6f; 

IM0MTR67 

IMOMTRGa 

IM0MTR6R 

IM0MTR7Q 

IM0MTR71 

IM0MTR72 

IMOMTR73 

IMOMTR74 

IM0MTR75 

IM0MTR75 

IM0MTR77 

IM0MTR75 

IH0MTR79 

IMOMTR80 

IMOMTR81 

IM0MTR82 

IMOMTRM3 

I MOM TR 8 4 

IMOMTR35 

IMOMTR85 

IMOMTR87 

iMOMTRaa 

IM0MTR89 

IM0MTR93 

IMOMTRRl 

IMOMTR92 

IM0MTR93 

IM0MTR94 

IM0MTR95 

IM0MTR9F. 

IH0HTR97 

IMOMTR98 

IMOMTR9° 

IMOMTROO 
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IF MERGE IS .TRUE., THE f-OUR LEX ARRAYS HAVE UEEN MERGED INTO 
LEXl. 

SUBROUTINE I MOM T R (LEXl , LEX 2 , LEX 3 , LEX 4 , F ,10 , MERGE) 

REAL IVDMOM 
LOGxCAu M'^RGE 

DIMENSION lEXI (1):,LEX2( 1) ,uFX3(l) ,LEX4(1) 
dimension F(64), 10(64) 

O.MENSION DIFl (64> ,DIF2 (64) ,uIF3(64) ,0IF4(64) 

DIMENSION SlJMl (lEi)) .SUM?. (12fi) ,SUM3(12A) ,SUM4(128) 
ilMENSION P(3600 ) .00 (3 00 ) 

equivalem:e(p(1) »0G(D) 

COMMON /Q/ NQUANT 

COMMON M1.N1,TYPE,G(14) ^ 

COMMON 'MAX. IMiN.NUMPPu , NUMu IN , NBU3 u , IR 1 , IR2 , . R3 , x R4 , ANGMO M ( 4 ) , 

1 A ME AN (4) ,SGHASO (4) ,SGMAXY (4) , DIF MOM (4) .RATIO (4) , IVDMOM (4) , TMcAN 
COMMON /<^C/ENTR0P(4> .O-FENKA) ,DIFAVE(4) , D IF VAR (4 ) , SUMtNT ( 4) , 

1SUMAVE(4) tSUMVAP (4) 

COMMON /CORRFL/CORINF (4) .CORMUT (4) fCOPMAX (4) 

INITIALIIE ARRAYS TO ZERO . 

DO 1 1=1,4 

iVDMOM(I)=0 

ANGMOH(i)=0 

AMEAN(I)=0 

SGMASQ(I)=0 

SGMAXY(I)=0 • ■ 

ENTROP(I) =0.0 

OIFENT (I ) =0. 0 J‘7 ’ 

OIFAVE(I) =0.0 - 

O-FVAR(i)=0.n r nr, 

SUMENT(I)=0.0 

SUMAVF(I)=0.n ^ ^O0l>; 

SUMVARd ) =0.0 
1 RATIO (I) =n 

DO 86 K=1,N0UANT 

D-F1(K)=0.0 

OIF2(K)=0.0 

OIF3(K)=0.0 

D.F4(K)=0.0 

NQUAN2=?*NQUANT 

DO 87 KS=1,N0UAN2 

S'tMl (KS) = 0.0 

SUM2 (KS) =0.0 

suM3(!<s)=n.n 

S'JM4IKS> =0.0 






IMOMTRni 

IMOMTR02 

IMOMTR03 

IMOMTR04 

IMOMTR06 

IMOMTRnr, 

IMOMTR07 

I MOMTROP 

I MOM TR ON 

IMOMTRIG 

IMOMTRll 

IMOMTR12 

IM0MTR15 

IMOMTR14 

IM0MTR15 

IMOMTR16 

IMOMTR17 

TMOMTRl? 

IMOMTRiq 

IMOMTR20 

IMOHTR21 

IMOMTR22 

IMOMTR23 

IM0MTR24 

IMOMTR25 

IMOMTR26 

IMOMTR27 

IMOMTR2? 

IM0MTR29 

IMOMTR3C 

IM0MTR31 

IM0MTR32 

IM0MTR3:» 

IM0MTR34 

IMOMTR35 

IM0MTR36 

IMOMTR37 

IMOMTR38 

IMOMTR39 

IM0MT54D 

IM0MTR41 

IMOMTR42 

IM0MTR43 

I MOM TR 4 4 

IM0MTR45 

IM0MTR46 

IM0MTR47 

IMOMTR48 

IM0MTR49 

IMOMTR50 
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GET THE NUN9ER (IF TRIGHTNESS LEVEu S tN0(3L 

IF THE lEX array WERE GUJA^E AN9 NOT COMPACTED. IT WOULD BE 
UlMENSIONED NO?L 9Y N09L 

N0QL=IMAX-IM!N*1 

NOW DETERMINE THE TOTAl NUM9ER OF RESOLUTION k^ELL PA.RS 
COUNTED IN EACH OF THE wEX ARRAYS 

IR1 = 0 
IR2=0 
TP3 = 0 
IP«.= 0 

IF (.NOT. MERGE) GO TO ‘♦0 
DO 42 I=l,NO"L 
DO 42 J=t.NOEL 
IJ=iNDEX< ,J) 

IR1=IR1+LFX1 (I J) 

42 CONTINUE 

Rl=l. /FtOAT (IRl) 

GO TO 41 . 

40 00 5 I=1,N03L 

DO 5 J=1,N03L ■ . 

IJ = *N0EXC,J) 

IRl=IR1+wFXl(TJ) 

IR2=IR^+-EX2 (IJ) 

IR3 = IR3 + LEX3 (IJ) 

5 IR4=IR4+LEX4(IJ) 

C 

C GET R1,R?.R3,R4 TO SAVE DIVISIONS 

C / 

Rl=l./FLOAT(IPl) 

R2=1./FlOAT(IR2) 

R3=l. /FLOAT (IR3) 

R4 = l./‘=‘i-OAT(IR4) 

C 

C FIND THE CORRELATION MEASURES 

C PUT THE LEX ARRAYS IN P MATRIX AND CALL CORRELATION ROUTINE 

C 

c DO LEX2 ■ ARRAY 

C 

JJ = 0 

00 201 I=l,NORL 
DO 201 J=1.N0BL 
I J=IN0EX <* . J) 

JJ=JJ+1 

201 P( JJ) =F'.0AT (LEX2 (I J) ) *R1 

call v^O^* (P.M09_ 1 1.QO.COR1.COR2.COR3) 

CORlNF(l) =CORl 


IM0MTR91 

IMOMTRSe 

IMOMTR93 

IMOMTR04 

IM0MTR5G 

IM0HTR56 

IMO.MTRSr 

IMOMTRS8 

IMOMTR5R 

IMOMTR50 

IMOMTROl 

IMOMTRf.2 

IM0MTR63 

IMQMTR54 

IM0MTR65 

IMCMTR&6 

IMOMTRIS7 

IM0MTR6P 

IMOMTRft° 

IMOMTR70 

IM0MTR71 

IMOHTR72 

IMOMTR73 

IMOMTR74 

IMOMTR75 

IMOMTP. 76 

IHOHTR77 

IMOMTR76 

IMOMTR7R 

IMOMTRAn 

IMOMTR31 

IMOMTR82 

IMOMTR83 

IMOMTR84 

IMOMTR35 

IMOMTR86 

IMOMTR87 

IMOMT=>8£ 

IMOMTR89 

IMOMTR9I'’ 

IHOMTR91 

IM0MTR9? 

IM0MTR93 

IMOMTR94 

IM0MTR9F 

IMOMTR96 
IM0MTR97 
IM0MTR9« 
IMOMTR99 
I MOM TR 00 
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CORMUK 1) =C0R2 
C0RMAX(l)=C0'P3 
JJ = 0 

c 

C DO lEX4 array 

C 

DO 211 I = 1,NO'’L 
DO 211 J=ltN03L 
IJ = *NOEXC,JJ 
JJ=JJ+1 

211 P(JJ) =FlOAT(LEX4 (* J) ) »R? 

call C0R( Pv'JOOL . 1 iQDtCORl tOOR2»COR3) 

C0R;nF( 2) =C0R1 
CORMUT<2i =COP? 

CORMAX (2) =C0R3 
41 JJ=0 

c 

c DO LEXl ARRAY 

G 

DO 221 I=1,NOOL 
DO 221 J=1.N03L 
ij=:nofx (I, J» 

JJ=JJ>1 

221 P(JJ)=FLOAT(LEXl(IJ) )*R1 

CALL COR( PtN0 3. , 1 , QDi C ORf. C0R2 ♦ COR3» 

C0RiNF(3) =CORl 
CORMiJT(3) =C0R2 
C0RMAX(3)=C0R3 
IF (MERGE) GO TO 43 
JJ=0 

c / 

Z DO LEX3. ARRAY 

C 

DO 231 I=1,N09L 
00 231 J=1,N0“L 
IJ=IN0EX(I,J) 

JJ=JJ>1 

231 P (JJ) =FwOAT (LEX3 (IJ) ) *R4 

call COR (P»N0S. t 1,OC»COR1»COR2»COR3) 

GORIK'F (4) =C0R1 
C0RMUT(4) =coo? 
oORMAX (4 ) =C0R3 

c 

C GET THE PROBABILITY FUNCITOM IN F 

C 

43 DO 379 I=lf64 
*O(I)=0 
379 F(I)=0 

C IF MERGE, GO TO SECTION *I TO MAKE THE COMPUTATIONS 


IMOMTROl 

IM0HTRn2 

IMOMTRO 3 

IMOMrR04 

IMOMIROB 

IHOMTROG 

IMOMTR07 

IMOHIRO?) 

IMOMTR09 

IMOMfRlO 

IMOMTRU 

IM0MTR12 

IM0MT^13 

IMOMTR14 

IMOMTR19 

IMOMTRIF' 

IM0MTR17 

IMONTRlft 

IM0MTR19 

IM0MTR2Q 

IM0MTR21 

IM0MTR22 

IM0MTR23 

IM0MTR24 

IM0MTR25 

IM0HTR25 

IM0MTP27 

IM0MTR28 

IM0MTR29 

IMOMTR30 

IMOMTR31 

,IM0MTR3? 

- ImO»^TR33 
IMGNTR34 
IM0MTR35 
IM0MTR36 
IM0MTR37 
IM0MTR3<J 
IM0'+TR39 
IM0MTR4H 
IM0MTR41 
IMOMTR42 
IM0MTR43 
IMOMTR44 
IM0MTR45 
IM0HTR46 
IMOMTR47 
IMOMTR48 
IH0MTR49 
IMOMIRSQ 
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C 


c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 


IF(MERGE) GO TO 911 
00 6 I=1,N09L 
IA=0 

DO 7 J=ltNOt}L 

IJ=IN0FX(',J» , ■ 

7 IA = ift*LEXl(IJ)+LEX?<IJ» ♦•LEX3 (IJ)+cEX4 (IJ) 

6 F{I)=f=’L0AT(IA)/-LnAT(IRl+IR2»*R3+IR4) 

FIRST COMPUTE THE TRUE MEAN 

TMEAN=0 

00 10 I=l,NOPL 

IP TMEAN = TME AN+F ( I) *r LOAT <," ) 
THEAN=TMESN+FlOAT(IMIN-1) 

GET CUMULATIVE DISTRI3UTI0N FUNCTION IN F 

00 8 I-2,N03L 

8 F(I)=F(I)+FtI-l) ' 

DETERMINE THE QUANTIZING FUNCTION 


CALL iEQPOl (N03. »NQUANT tF,IQ,;MIN) 

NEXT COMPUTE THE QUANTIZEO TRANSLATED MEAN FOR EACH ARRAY 


00 2 I=1,NQUANT 
DO 2 J=1,NQUANT 


NSI = l 

IF(I.NE.l) NSI=IQ(I-l)+2-iMIN 

nei=iq(I)-:min 


NSJ=1 

IF(J.NF.t) NSJ = IQ( J-1) 4-2-*MIM 

NFJ=IQ(J) -IMIN ■♦•1 

IF (NSI.GT.NEI) go TO 2 

IF (NSJ.GT.NEJ) GO TO 2 

N A 001=0 

NAOn?=0 

NA003=0 

NAOD4=0 

00 9 NI=NSi.»NFI 
DO 9 NJ=NSJ,NEJ 
iJ=:NDEX(NT,NJ) 
NA001=NA0QH-LFX1<: J) 

nadd2=naod2+lpx? <: J) 

NAD03=NA0D3«-LEX3 (IJ) 


NAD04=Hfl0D4 + LEX(i C J) 

AMEAN(n = AM£AN(l>+FLOAT(NAOD2* I) 
AMEANC4) =AMEAN (4 ) 4-FLOAT (NA0P3*I) 




- OF 


IM0MTR91 

IM0MTR52 

IM0MTR5T 

IM0MT='54 

IM0MTR59 

IM0MTR9G 

IMOMTRQZ 

IM0MTR98 

IM0MTR99 

IM0MTR4Q 

IMOMTRGI 

IM0MTRB2 

IM0MTR63 

IM0MTR64 

IM0MTR65 

IM0MTR66 

IM0MTR67 

IM0HTRG8 

IM0MTR69 

IMOMTR70 

IM0MTR71 

IM0MTR72 

IM0MTR73 

IM0MTR74 

IM0MTR79 

IM0MTR76 

IM0MTR77 

IM0MTR78 

IM0MTR79 

IMOMTR80 

IM0MTR31 

IM0MTR82 

IM0MTR83 

IM0MTR84 

IH0MTR3F 

IM0MTR86 

IM0MTR87 

IM0MTR98 

IM0MTR39 

IMOMTR90 

IMOMTRQl 

IM0MTR92 

IM0MTRQ3 

IM0MTR94 

IM0MTR95 

IM0MTR96 

IM0MTR97 

IM0MTR98 

IM0MTR,9« 

IMOHTROO 
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®HE AN (2 ) = AM£AN (2)»F'L0AT(NA0ri4* I> 
AMEAM(3) = AHEANC3) *-FL0AT(NA321* I) 

2 CONTINUE 

NON normalize to get the means 

AMEAN ( 1) = AMEAN ( I » *R2 

AMEAN(2) = AMEAN (? ) “'’4 

AMEAN (3) =AMEAN (3 ) 

AMEAN(4)=AMEAN(4)*R3 

now do moment calculations 

DO 3 T=l,NQUANT 
DO 3 J=1,NQUANT 

IF(i.NE.l) NSi=IO(i-l)*2"-N^N 
NFI = IQ(I> -imin <•! 

ifu!ne.i) NSJ=IQ(J-1)+2 -imin 

NPJ=iQ<J) -xMIN 

IF (NS^.GT.NEI) GO TO 3 

IF (NSJ.CT .NEJ) GO TO 3 

NA001=0 

NA002=0 

NAOD3=0 

NA004-0 

DO 13 NI=NSI,NEI 
DO 13 NJ=NSJ.NEJ 

NINJ=IN0EX(NI,NJ) 

SUM UP. THE ELEMENTS IN EACH LEX ARRAY 

NA0D1=NADC1 + L'^X1 (NINJ) 

HA002=N flOD24’LEX2 (NINJ) 

NA D03=MAD03^LFX-i' (NINJ) 

13 NADD4=NAD04+LEX4 (NIN J) A,, 

NORMALIZE 

RLIsELOAT (NAOOl) *?.l 
r^.2 = FL0AT (NAQ02) *^R2 
R'.3 = EwOAT (NAD03) *R3 

RL4=FtOAT (NA004) *R4 

CALCULATE THE MOMENTS 

ANGM0M(1)=ANGM0M(1)+PL2**2 

ANGMOM(P) =ANGMOM (2)^PL4*»^ 

ANGMOM( 3) =ANGMOM ( 3) ♦RLl**? 






I 
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Ar4GMOH(»*) =ANGMQH ('*> +PL 3**’ 

SGMASQ(l)"SGMA'^'Ht)> (C^^LOArdl-AMEAlHl) )**2» *.'<»2 
S9‘6ASQ(2) =SnMASO (2) + ( (FLOAr(*»-AHFAN(2) )»»2) *R-'» 

SGMAS0<3) =SGMAS9(3) M (FLOAT4II-AMFA*! (3) 

SGMASO(A) =Sr.HASQ (4) t ( <F'_OAT (I 4-AMEAN (4> )**Z) 

SGHAXYd ) rSGMAYY (1) ♦ ( FL 0 AT < I ) - A’lF AN { I ) > • (r lO A T ( J) - A MEAN ( I ) ) 2 

Sr-MAXY(2>-SGMAXY(2)*'<FLOAT(I)-AMFAN(2))*(FLOAT(J)-AMEAN(2)>*^”_4 

SC-NAX Y(3 ) =SGN AXY (3 ) <FL OAT ( I ) - AMF AN ( 5 > ) • (FuO AT ( J » - AHEAN ( 3 ) ) » Rl. I 

SGMAXY(4) r'JGMAXY (4» ♦■ ( FlOA T C ) - AMF A N ( 4 ) > • (" lO A T ( J ) - AME A'J ( 4 ) » *RL 3 
TVOMOM (1) =IVOMOM (I ) >RL2/< L. +FUOAT ( { I-J) **2 > ) 

IVOMOM(2)=I\/f^4 0H(2)fPL4/tl.«-F_OAT((I-J>**2M 

IVOMOM(3) = :VOMOM (3) «-P.Lt/(l. ♦FLOAT! J.1 - J) ) 

IVDM0M(4)=1VD'^04(4)+RL3/(1.+Fi.OAT((I-J)** 2)J 
IF (RL2.LT . 0 . 0 0 000 1) GO TO '50 
ENTROP(l) =FNTRO° ( 1 ) -RL2 *AuOG <RL2) 

50 IF(RL4.LT.G.n00001)GO TO 51 
ENTROPC?) =ENTROP (2) -RL4 ♦AlOG (PL4) 

51 IF (RlI.lt. O.OOOOOUGO TO 
ENTR0PC3) - ENTRO=’ < 3 ) -P.Ll * A-OG (RL1» 

52 IF (RL3.LT .0 .00 0001) GO TO 53 

ENTR0P(4) =ENTROP (4) “RL3*-A_OG (RL3) 

53 CONTINUE 
C 

C SET UP THE SUM ARRAY 

C 

K=IABS(I-J> ♦I 

C ^ 

C SET UP THE OIFFEPENGE ARRAY 

c ■ 

KS = IABS(I + JH-l 
D:F1 (K)=DIF1 (K)frRL2 
CIF2 (K) =0-F2 (K) +Rl4 
0IF3 (K) =O^F3 (K) ♦RL 1 
DTF«,(K)=n:F4(K)+R-3 
SUMl (KS) =SUM1 (KS) +RL2 
SUM2 (KS)=5UM2 (KS) ♦RL4 
SJM3(KS)=':UiM3(KS) ♦R.l 
SJM4(KF)=SUM4(KS) +RL3 
3 CONTINUE 

00 4' I=lf4 

4 RA TIQ (I ) =SGHAXY < I ) /SGMA3Q ( I ) 

C CALCULATE THE ENTROPY » AVERAGE , AND THE VARIANCE OF THE OIFi^ERENCE 

C ARRAY 

C 

on 31 K=l,NOUANT 

IF (OIFKK) .LT. 0.00000 1) GO TO 54 
DIFENT(l) sOIFFNT (1 ) -OTFl (K) *AwOG(DIFl (K) ) 

54 IF (CIF? (K) .LT. 0. 000001) GO TO 55 

DIFENT(2) =OIFENT ( 2) -0IF2 ( K) * A^OG ( DIF2 ( K) ) 


IH0MTR51 

IMO'^TRG? 

IHOMTRG' 

IMOMTR54 

IMOMFR55 

IM0MTR5F 

IHOMTR57 

i;tOCTR5.'' 

IM0MTR5G 

IMOMTRGC 

IMOMTRGl 

IMOMTR62 

IMOMTR63 

IMOHTR64 

IMOMTR55 

IMOMTR6F 

IMOMTR67 

IM0MTR6C 

IMOMTR59 

IM0MTR7C 

IMOHTR71 

IMOMTR7E 

IMOMTR73 

IMOMTR74 

IMOt1TR7‘^ 

IM0MTR7E 

IMOMTR77 

IM0MTR7F 

IMO.MTR79 

IMOHTRAi: 

IMOMTROl 

IHOMTR82 

IM0MTR83 

IM0MTR8‘‘ 

IMOMTR8S 

IHOMT:v>8 6 

IMOMTR87 

IMOMTRSf 

IM0MTR89 

IM0MTR91' 

IHO’dROl 

IMOMTROr 

IMOMTR97 

IM0MTR9t< 

IM0MTR9'' 

IM0MTR9( 

IM0MTR97 

1M0MTR9F 

IM0HTR9‘^ 

IMOHTROr 
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IF( 0 IF 3 (K) . 
OIFENM^ ) =L 
Ir (DiF 4 (K) . 
j:fent<4> =( 
CONTINUE 
G=FuOAT(K) 
DlFAVEd) -I 
01 FAVE 12 ) =: 
DIFAVE( 3 > = 
o:fave(4) = 
O.FVARd ) = 
DIFVARl?) = 

d:fvar( 3) = 
0IFVAR(4)= 
00 32 K<=1 
DiFVAR(KK) 


.LT.O. 000001) GO TO 56 
uIFENT (3) -O.FJ(K) *Al.0G(DIF3(K)I 
.LT^ 0. 000001) GO TO 57 

DIFENT(4)-0IF4(K)'^AL0G(DIF4(K)) 


C:pAV='(l)*-<G»CIFl(t<)) 

DIFAVE (2) ♦ (b»o:F2 (K) ) 

DiFAVE (3) ♦(G»3--F3(K)) 

DIFAVF 14 ) ♦ (G^OtFA (K) ) 

01 F V AR { 1 ) G) F 1 (K) 

uIFVA=>(2)+-(G*G)*9IF2(K) 

DIFVAR ( 3 ) (G'O^OIF^ (K) 

:GIFV AR ( 4 ) ♦ (G*o) *DiF 4 (K) 

i=DTFVAR(KK)-(D-FAVE(K'<)*OIFAVE(KK)) 


CALCULATE THE ENTROPY , AVERAGE , AND THE VARIANCE OF THE SUM 
ARRAY 

DO 33 K= 1 ,M 0 UAN 2 

IF (SUMl ( K ) . L T. 0 . 0 0 00 0 1 ) GO TO 53 
SUMENT Ji>=SUMENT(l)-SUMl(K)*^A.OG(SUMltK)> 

"F (SUM 2 (K» *lT. 0 . 000001 ) GO TO 59 

S'JHENTl’) =SUMENT( 2 )-SUM 2 (K)*AuOG(SUM 2 (K)) 

IF (SUM? (K) .L-T. 0 . OOQODl) GO TO 60 
SUMENT (3 ) =SUMENr ( 3 ) -S UM 3 < O *A‘_ OG (SUM 3 (K) ) 

IF (SUH4 ( K ) «L T • 0 • 0 0 0 0 0 1) GO TO 61 
SUMENT ( 4 ) =SUMENT ( 4 ) -SUM 4 (K) *ALOG (SUM 4 (K) ) 

CONTINUE 

REPRODUCIBILITY OF THE 

i'j«A!/E( 7 i=simAVE( 2 ).<G«sU'ijiKll ORIGINAL PAGE IS POOR 

SUMAVE( 3 ) =SUMAVE ( 3 )MG»SUH 3 (K) ) 

SJMAVE( 4 )=SUMAVE( 4 ) + (G •SU :14 ( K ) ) 

SUHVARd > =SUMVAR ( 1 ) ♦• (G*G) ^SUMl (K) 

SUMVAR( 2 ) =SUMVAR ( 2 ) + <G»b) '^SUM 2 (K) 

SUMVARJ 3 ) =SUMVAR ( 3 ) ♦ (G*G) *SUM 3 (K) 
SUMVAR( 4 )=SUMVAR( 4 )^(G*G)^SUM 4 (K) 

SUMVA'?'(i^K > UuMVAR(KK) - <SUMAVE(KK) »SUMAVE(KX) ) 

RETURN 


SECTION i.1 


IMOMTR FOR the: MERGED uEX ARRAY 


GET THE PROBABILITY FUNCTION IN F FOR MERGE OPTION 


DO 16 I=l»NOBL 
1A = 0 




20.7ai 
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no 17 J=1 ,NO0L 
iJ=INnEX ('t J» 

17 lA = Ifl+lE‘<l (IJ) 

16 Fm=FLOAT<IA)/PLOAr(IRlJ 

C 

c FIRST COMPUTE THE TRUE MEAN 

C 

TMEAN=0 

00 OQ *=l,NOO_ 

90 TMEAN=TMEANfF ( I) *FLOAT( I» 

T ME AN = TMEAN*' FLOAT (IMIN-H 


>1^ 

C 

c 

91 


C 

c 

c 

c 


93 

92 

B 

C 

c 

c 

c 

c 


3ET cumulative oistridution punction in r 


00 91 I=2,N03L 
F(I)=F(I) 4-F{I-l> 


CETERMINP the quantizing function 

CALL lEQPQl (NOQL fNQUANT »F,IQtxMIN) 

NEXT COMPUTE THE QUANTIZEO TRANSLATED MEAN 

00 92 I=1,NQUANT 
DO 92 J=liNQUANT 
N9I = t 

IFCI.NE.l) NSI=IQ(I^1»+2--M:N 
NEI'-IQ(l) -iMIN ♦! 

NSJ = t 

IF(J.NE.l) NSJ=IQ(J-1)+2-IMIN 
NEJ=IQ(J) -IMIN +1 
IF (NSI.GT .NED GO TO 92 
IF (NSJ.GT.NEJ) GO TO 92 
NAD01=0 

DO 93 NI=NSI.NEI 
00 93 NJ=NSJ»NEJ 
IJ=IN0EX (NI.NJ) 

NADD1=NA0C1+LFX1 (IJI 

AMEAN (3) =AMEAN <3) +Fk.OAT (NADOl'^ I) 

CONTINUE 


NOW NORMALIZE TO GET THE MEANS 
AMEAN(3»=AMEAN(3) *R1 
NOW 00 MOMENT CALCULATIONS 


DO 95 I=1,NQUANT 
DO 95 J=ltNQUANT 
NSI = 1 


IM0MTR51 

IM0MTR5? 

IM0MTR5J 

IM0MT»5L 

IM0MTR5'^ 

IMOMTR56 

IMOMTRG? 

IM0MTR5P 

IM0MTR5G' 

IM0MTR6C 

IM0MTR61 

IMOMTRbc 

IM0MTRG2 

IM0MTR6A 

IM0‘TR65 

I MOM TR 66 

IM0MTR67 

IM0MTR6f 

IMOMTRb-^ 

IM0MTR7C 

IM0MTR71 

IM0MTR7P 

1M0MTP77 

IM0HTR7<' 

lM0MfR7? 

IM0MTR7? 

IM0HTR7? 

IM0MTR7P 

IM0MTR7« 

IM0MTR8C 

IMOMTRB J 

IM0MT=>'? 

IM0MTR87 

IM0MTR3<i 

IMOMTR86 

IMOMTRSt 

IMOMTR87 

IM0MTR8F 

IMQMTR3'' 

IM0:HTR9f' 

IM0MTR91 

IMONTRO? 

IMQMTR97 

IM0MTR9'' 

IM0MTR9‘" 

iMOMTR^t 

IM0MTR97 

IM0MTR9® 

IMOMTRO'^^ 

IMOMTROC 
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IFCI.NF.l) NSI=IQ(1-1» ♦-2-.MIN 
NEI = IQ«n -IHIN 

IFU^NE.l) NSJ = IQ(J-1)*2 -IMIN 
NEJ=IU(J) -iMIN ♦! 

IF CNSI.GT .tJEI) r.O TO 95 
IF (NSJ.&T .NEJ) GO TO 95 
Nfl001=0 

00 96 N1=NSI,NEI 
00 96 NJ=NSJ,NEJ 
NiNJ=INDEX(Nl,NJ) 

SUM UP THE ARR4Y 

NADDl=NftODltLEXl (NTNJ) 

NORMALIZ»^ 

RLl=Fi-OAT (NAOOt) *R1 
SOMPUTE MOMENTS 

ANGMOM(3)=ANGMOM(3)tR-l'^*2 ' . 

TVDH0M(3) =:VpMOM<-?H-RLl/ll. <-^-OAT( (I-J) ->> 

IF (RwI.lT .0 .00 QOOU GO TO 533 
ENTPOP(3)=ENTROP(3)-RL1*A_OG(RL1) 

CONTINUE 

SET UP THE SUM ARRAY 


K=IABS{I-J) +1 

SFT up the OIFFERENGE array nw mr 

KS = I Af?S(I+J) +1 POOW 

0IF3(K) =DxF3 (K) +RL1 

S'JM3(KS)=SUM3(KS)+RL1 

continue 

RA TIO (3 ) -GGM ax Y t 3) /SGMASQ{ 3) 

CALCULATE THE ENTROPY , AVERAGE , AND THE VAR.ANCE,^ THE DIF'ERENCE 
ARRAY 

00 97 K=1 .NQUANT 

IFtOTFS (K) .LT. 0. OOOOOl) GO TO 577 

OIFFNT(3) =0IFENT ( 3 »-DIF 3 (K)*Ai.OG(DIF 3 (Kn 

CONTINUE 

G=FLOAT(K) 


IHOMTRQ 1 

1 MOHTR02 

IHOMTR03 

IMOMTROL 

IMOMTR05 

IMOHTR06 

IMOMTR07 

IMOMTR08 

IM0MTRQ9 

IMOMTRIO 

IMOMTRll 

IMOMTR12 

IMOMTR13 

IMOMTRIA 

IMOMTR15 

IMOMTR16 

IMOMTR17 

IMOMTRl P 

IMOMTR15 

IMOMTRZn 

IM0MTR21 

IMOMTR2? 

IM0MTR23 

IMOMTR2<* 

IMOMTR2I 

IM0MTR2e 

IMOMTP27 

IMOMTR2P 

IM0MTR2':- 

IMOMTRSr 

IMOMTR31 

IMOMTRSr 

IMOMTR3? 

IMOMTR3‘- 

IMOMTR3E 

IMOMTR3f 

iMOMTR37 

IHOMTR3F 

IMOMTR3' 

IMOMT=>‘’tC 

IMOMTOAl 

iMOMTRLc 

imomtra:- 

'IM0MTR4' 
IMOMTI?'.' 
IMOMTRLt 
IM0MTR47 
IM0MTR4I 
iM0MTR4‘ 
IHOMTR5 I 
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97 


99 


93 


JIFAVE (3)=0IFAVE (3) + (r-*3IF3(K)» 

0IFVAK(3) =0iFVAo«3) + (G*3J'‘3IF3(K) 
D.FVAR(3)=0TFVAR(3>-<0IFAVE(3)*0:FAVE(3)) 

calculatf the entropy, average. ano the variance of the sum 

ARRAY 

DO 98 K=1,NQUAN7 

iF(SUM3(K) .LT.O.OQOOQl) 60 TO 99 

SJMENT (3 ) =SUMENT (3)-SUM3U) * A'.OG ( SUM 3 ( K > ) 

GONTIMUE 
G=FLOAT (K) 

SUMAV£(3) =SUMAVE (3) *(G*SUM3 (K) ) 

SIJMVAR(3 ) =SUHVAR ( 3) (G*G) *SUM3 <K» 

SUMVAR<3) =SUMVAR ( 3) - (SUMAVE ( 3) ♦SUMAVE (3) > 

RETURN 

ENO 


IMOMTRE 
IMOMJtJF 
IM0MTR5 
IM0MTR5 
i MOMTRS 
IH0MTR5 
IMOMTRS 
IM0HTR9 
1M0HTR5 
IM0MTR6 
IM0MTR6 
IM0MTR6 
IM0MTR6 
IM0MTR6 
IM0MTR6 
IM0MT.R6 
IM0MTR6 
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CCOR 

c 

c 

c 

u 

c 

c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
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SUOROUriNF COR 
WRITTEN 3V SAH SHANMUGAM 


COROOOOl 

coRooonz 

NOV 1972 COROOQIJ3 

:oRooin4 

COR00007 

OBJECTIVE. COR00003 

rQPQoaoq 

TH.S program’ CALCULATES TKREE MEASURES OrCOROOOin 


CORRELATION C ORl * COR2 * C OR3 » BETWEEN TWO 
discrete RANDOM VARIABLES X ^ 

JOINT PR00A9ILITIES OF OC-URAN^E ARE 
STORED IN THE AR°AY PXY 


entry point. 


CALL CORtPXY.N.iOPT tOtCORl ,C0R2, ^0R3) 


INPUT ARGUMENTS. 



PXY 

N 

I OPT 


AND 


PAGEisp^ 


array of joint PROSAOILlTirS 
SIZE OF THE ARRAY PXY 
OPTION flag — IF IOPT = 0 THEN 

COR2 ONi-Y WiLi. 3E COMPUTED. xr 
IOPT=l, THEN C0R3 WILL 3E COMPUTED 
SCRATCH ARRAY OF SIZE N f _ 

ARRAY IS NEEDED ONLY IF lOPT xS 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NON-ZERO. IF lOPT 
DUMMY VARIABLE MAY 

the argument Q 


IS 

BE 


ZERO THEN A 
SUBSTITUTED 


OUTPUT ARGUMENTS. 


CORl 

C0R2 

C0R3 

BIBLIOGRAPHY. 


MAXIMAL CORRE-AT-ON MEASURE 
INFORMATION MEASURE 0'=’ CORRE. 


at: ON 


SECOND TYPE OF MAXIMAL MEASURE 


annals of 

P.587, 
CORRELATION 
C.9. 3ELL 


MATHEMATICA- STATISTICS. VO.. 43. 
•MUTUAw INFORMATION AND MAXIMAL 

AS MEASURE OF DEPENDENCE* 3Y 


caution. 


c 


CORQOO 11 
COR 000 12 
COR00013 
COR00014 
coROonis 
coROOOie 
COR0Q017 
COROOOlf 
COROOO 1>^ 
COR0002C 
COR00021 
GOP0002I 
COR0002: 
COROOO 2< 
COROOQ2I 
COR 000 2!' 
CORO 00 27 
CORO 0 0 27 
COROQOZ'^ 
COR0003! 
CORQOO 31 
COR0003. 
COR0Q03; 
COR0003I 
COR0003' 
CO ROOD 3' 
COR0003 
COP0003 
COR0003 
COR0004 
COR0004 
COR0004 
COR0004 
COP0004 
1962 .COR 0 004 
COR0004 
COR0004 
CORO 00 4 
COR0004 
COR 00 09 


FOR 
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SUBROUTINE COR 


CORnOO'Jl 

1. THE ARRAY PXY MUST HAVE A DIMENSION OFCOR00052 
N X N IN TH>^ CABLING PROGM. OR ®XY SHOUlDCOR 00053 
3E A ONE OlMENSrOMAu VEC TOR .C ONT A ININ G THCORQ0054 
JOINT PR0BA3iLITi.ES IN A .OLUMN BY COLJMNCOR00055 

ARRANGEMENT. rnonSnrT 

2. tf N IS ‘ ARGE .THE COMPUTATIONS FOR CORn0057 

COR3 WILu TAKE CONSIDERABLE TIME. HENCE SOR00055 
THE USE OF THIS ROUTINE IS RESTRICTED TO C:OR00Q59 


N 


LESS THAN OR EQUAL TO 32 


COMPUTATIONS. 


PX (I> = 


SUM 

T 


PXY (I , J) 
PXY(I. J) 


.OG(PXYtI,J» *PXY(I,J) 






PY(J)= SUM 
J 

HXY = SUM SUM 

I J 

HXYl = SUM SUM lOG( (PX(I)*PY(J) ) 

I J 

MXY2 =SUM SUM (LOG ( PX (I ) *PY ( J) > 

I J 

HX = SUM (LOG(PX(I))» PX(I) 

T 

MY = SUM (LOG(PY( J) ) * PY(J) 

J 

RrHXY2-HXY . EMAX= MAX(HX.HY) 
C0RI=(HXY-HXY1)/EMAX 
COR2=SQRT ( 1.0-EXP (-2>^-'‘'») > 

COR3- IS COMPUTED USINGS T'-E EIGEN 


:OR00060 
C^OROOObl 
COR 0 00 62 
COR00063 
CORQ0064 
COR00065 
COR00066 
COR0n067 
coROOoea 
COR00069 
COR0007D 
*?XY (I,JCOR00O7i 
CORQ0072 
COROOO 73 
COP00074 
COROOO 75 
COROOO 76 
COR00077 
COR00078 
. COR00079 
COR00080 
COROOO 81 
VECTOR CORQ0Q82 


’^PX(I) * 
PY(J) 


CORRESPONDING TO THE SECOND LARGEST 

EIGEN VA..UE OF Q’QTRANSPOSE . WHERE 
Q(I,J)=PXY(i, J)/SQRT(PX(I) *PY (J)) 


SUBROUTINE COR(PXY»N»IOPT»Q»COR1»COR2.COR3) 

DIMENSION PXY(l).Q(l) ^ , 

dimension PX (64) ,PY(64) ,E (64) ,V (128 ) , B (64) ,C(64) ,0(64) ,F(5 4) 

DIMENSION IZER0(32) 


COR00083 
GOP00084 
COR00085 
COR00086 
►•»COR00087 
coRoonaa 
COR 000 89 
COR00090 
COROOO 91 
COR00092 
COR00093 


C 

c 

c 

c 


80 


DO 80 1=1, N 

py(l)=o.o 

py(l)=o.o 


COR 000 95 

INITIALIZE PX.PY.HX.HY.HXY.HXYl.ANO HXY2 

^ - COR00098 

COR00099 

COROOlOO 
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20 .R60 


SU0UdUT*NI^ ’OR 


C 

c 

c 


81 


82 


83 


84 


C 

C 

C 


C 

C 

C 


C 

c 

c 

c 

c 


hX=0. 0 
HY=0.0 
HXY=0 .0 
HXY1=0.0 
HXY2=0.0 


COMPUTE THE MARG^NA.S ANO THEIR ENTROPY 


68 


69 


DO 82 T=l,N 

00 81 J = 1 ,N 

Tj=(j-i)*N'*r 

px ti> =px ( ; ) +PXY { ij» 

IF (PX(I> .LT. 0.000001) GO TO 82 

HX=hX~( ALOG(PX (I) ) ) *(PX (-) ) 

CONTINUE 

DO 84 J=1»N 

00 83 1=1. N 

I J=( J-1) *N+I 

PY (J) =PY ( J) +PXY(IJ) 

IF (PY (J) . -T . 0 . 000001) GO TO 84 
HY=HY-AlOG(PY(J) )*PY( J) 
CONTINUE 


COMPUTE THE ENTROPY OF THE JOINT OISTR. 


00 69 :=1.N 
00 69 J=1.N 
IJ=( J-1) *N+1 

IF (PXY(IJ) .LT.O. 000001) GO TO 63 
hXY=HXY-(AUOG(PXy (IJ) )) ^^(PXY (IJ) 
PXPY = PX (I ) *PY ( J) 

IF (PXPY.-T. 0.000001) GO TO 69 

hXYl=hXYl-(A'.OG(PXPY) )*PXY (IJ) 
HXY?=HXY2- ( ALOG (PXPY) ) ♦ (PXPY) 

CONTINUE 




COMPUTE CORl AND C0R2 


EMAX=HX 

IF(HX.LT.-Y) EMAX=HY 
C0R1= (HXY-HXYl ) /EMAX 
R=HXY2-HXY 

COR2 = SQRT(1.0-EXP(-2.0*R) ) 


iF(IOPT.EQ.O) RETURN 
DO 599 INDFX=1,32 ' 


.F C0R.3 NOT ASKEJ FOR RETURN 


SCAN PXY ANO delete ROWS OF ZEROS 
AND COt.UMNS OF ZEROS 


COROOlOl 

COP00102 

COPOOlO 3 

COR00104 

COR DO ID 5 

COP00106 

.COR00107 

COR00108 

COP00109 

COPOOllO 

COROOlll 

COR00112 

COR00113 

COR00114 

COR00115 

COP00116 

COR00117 

COP00118 

COR00119 

COR00120 

COPD0121 

CORD0122 

COR00123 

COR00124 

COR00125 

COR0012‘^ . 

COP00127 

COR00128 
COR00129 
COR00130 
COR00131 
COR00132 
COR00133 
COR00134 
COR00135 
. COR00136 
COR00137 
CORO 01 33 
CORO 01 39 
COR00140 
COR00141 
COR00142 
COR00143 
COR00144 
COR00145 
COR00146 
COR00147 
COR00148 
COR 00 149 
COR00150 


202 


c 




20.860 


SU0ROUT.NE '.OR 


699 


601 

600 


640 


649 

650 

651 


I7E‘?0 (INOFX) =0 

NZEROsO 

03 600 1=1 tM 

iF(PX<I» .GT.O. 000001) GO TO 601 

NZERO=NZEROtl 

I7ER0 (NZER0)=1I 

CONTINUE 

CONTINUE 

IF (NZERO .EQ. 0 ) GO TO 651 
JJ = 0 

00 650 J=lfN 
DO 650 1 = 1. N 
DO 640 KK=1 ,NZERO 
NDEX=1ZER0 (KK) 

IF ( (I .EQ.NOEX) .OR. (J.EQ.NOEXn GO TO 649 

CONTINUE 

J J= JJ+1 

IJ= (J-1) *N+I 

PXY( JJ) =PXY(IJ) 

CONTINUE 
CONTINUE 
CONTINUE 


( 


662 

661 


C 

c 

c 

c 

c 


GO TO 662 





672 

671 


58 


REMOVE ZERO ENTRIES IN THE MARGINALS 

JJ = 0 

00 661 1=1. N. 

IF (PX (I) .lT.Q. 000001) 

JJ=JJtl 
PX(JJ)=PX(I) • 

CONTINUE 
CONTINUE 
JJ = 0 

00 671 I=1.N ~*uTi irf 

IF(PY(I) .LT. 0.00 0001) GO TO 672 * 

JJ=JJ+1 ^ 

OY (JJ)=PY(I) . 

CONTINUE " ■ 

CONTINUE 

NNNN=N 

N=N-NZERO 

NORMALIZE PXY AND STORE IN Q. SAVE PXY 


DO 58 1=1. N 
00 58 J=1.N 
IJ=(J-l)*NfI 
CONS = SQPT IPY ( J) ) 

Q (IJ) =PXY (I J) /CONS 


COR00151 

COR00152 

COROO 153 

COR00154 

COR00155 

COR00156 

COROO 157 

COR00158 

COR00159 

COPOU 160 

COR00161 

COR00162 

COR00163 

COR00164 

COR00165 

COR00166 

COP00167 

COR00168 

COR001G9 

COR00170 

COROQ171 

COR00172 

COR00173 

COR00174 

COR0017E 

COR00176 

0OR00177 

COR00178 

COP.0017'3 

COR 0018 0 

COR 0 0181 

COR00182 

COR 00 18 2 

COR0Q184 

COR00185 

COR00156 

COROQ187 

COROO 18f 

COR00139 

CORO 0190 

COP00191 

COR00192 

COR00192 

•COR0019f. 

COR00195 

COR00196 

COROO 1P7 

COR0019P 

COROOIO^’’ 

COROO 20 C 
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20.R6!1 


sun^ouTiNr :or 


52 

51 


50 

49 


48 

C 


cc 


91 


C 

C 

C 

C 


C 

c 

c 

c 

c 

c 

c 

c 

c 



COMPUTE THE UPPER/Oj.AG E.EHEMTS OF Q*QT 
STORE IN Q 

00 49 1=1. N 
no 51 J=I.M 
3 <J) =0.0 
on 52 K = 1 .N 

iK=«K-i) »“)+: 
jK=(K-i » *ri+J 
9(J»=D«J)tQ(lK)*Q(JK) 

UONTIMUE 
00 50 J=l.N 
IJ=(J-1) *N+I 
QdJ) =3 (J) 

CONTINUE 

FILL IN THE BELOW DIAG E.EMENTS OF Q»QT 


00 48 J=1|N 
00 48 1=J.N 
IJ=( J-1) *N+I 
JI=(I-1) *N+J 
Q(ij)=a<j:) 


PORM SQRT(PX) ♦ Q*QT ♦ SORTCPY) 
STORE IN 0 


00 91 1=1. N 
00 91 J=1.N 
IJ=(J-1)»N4-I 

Q(IJ» =Q(I J)/(BQRT(PX(I) *PX( J» ) ) 


GET THE EIGEN VECTORS ANO EIGEN VALUES 
OF Q*QT 


COR0020 I 

COR002Q2 

COROQ2Q3 

COR00204 

COR002Q5 

COR00206 

COR00207 

COR002QR 

CORQ02Q‘a 

COR00210 

COR00211 

COR00212 

COP0021S 

COR00214 

COROQ215 

COR0021P 

COR00217 

COR0021P 

COR00213 

COR 0 0 22 0 

COR00221 

COP00222 

COR00222 

COR00224 

COR00225 

COR0022B 

COR0022r 

COR00228 

COR0022P 

COR00230 

COR00231 

GOR00232 

COR00233 

COR00234 

GORQ0235 


MAX=5 

IF(N.LT.MAX) MAX=N 

CR=o.ooni 

EPS = 0. 00001 

CALL SF AOI'OlQ t Nf N,CR, 


CALL THE SUBROUTINE TO GET THE EIGENVALS C0RQD236 
GET A MAX OF 5 EIGENV-ALUES . IF ALL FIVE COR00237 
ARE NEAR UNITY. SET COR3= 0 . 9999 . RETURN COP,D023F 
IF all OF THEM (OTHER THAN THE FIRST ONE) COP0023'^ 
ARE -ESS THAN 0.001 . SET C0^3=0. 00 01 ANDIOR0024r 
RETURN. THE FIGEN VA.UES ARE CAA.CULATEO COR00241 
W..TH AN ACCURACY OF 0.0001. COR00242 

COR00243 

'COR00244 

COR00245 

COR0024F 

COR00247 

COR0024C-! 


E PS .MAX.NE»E.V.3.C»0»F 





COR0024^ 
COR00 25a;; 


\v 
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02-12-7'* 2 n. 86 >n SU8K0UT1MF. COP 


C 

C 

C 


?on 


60 


63 


IF(NE.GT.U GO TO 60 


Cor 3=0. ni 
H'^irE«6,200> 

FORMAT! IHl.inX, • ALt 
IAN 0.001, C0R3 IS SET 
N=NMNN 
RETURN 
CONTINUE 

FIND THE EIGEN VAlUF 
DO 63 1=1, NE 
d:f=a3S(E(:)-i.o) 
JJE=I 

IF (DIF. GT.O. 00003) GO 
CONTINUE 


SET COR3=0.QQ01 AND RETURN 


EiGEN VA-UES OTHER THAN 
= 0 . 000 1) • /lOX , • AGORT AA 


CLOSEST TO 1.0 


THE 

' ) 


TO 64 


IF PROGM IS AT THIS POINT, THEN THE 
FIVE EIGEN VALUES ARE CLOSE TO 1.0. 
COR3=0.9999 AND RETURN 


COR3=0.9999 

WRITE(&,202) 

202 F0RMAT(1H1,1QX, • THE 
1 30R3 IS SFT =0.999. . 
N=NNNN 
RETURN 


64 IF0UND=JJE 

COR3 = SORT(E(IFOUNDn 

N=NNNN 

RETURN 

END 


FIRST 5 EIGEN 
...ABORT B9*l 


FOUND A PROPER ExGEN VAlUE 


COR002F 
COR0025 
COR0029 
COR0025 
COR0025 
COR0029 

FIRST ARE .ESS ThCOR0025 
CORODZS 
COR002S 
COR0026 
COP0025 
GOR0026 
DOP0026 
CORO026 
COPOQ26 
COR0026 
COP0026 
coROOze 
FIRST. OROOZF 
COP0027 
COR0027 
COR00Z7 
COR0027 
COR0027 
COROOZ7 
COROOZ7 
COR0027 
COR0027 
COR00Z7 
COR0028 
COR 002 3 
COR002F 
COR 00 28 
COR002v3 
COR0028 


SET 


VALUES ARE NEAR UNITY. VIQX, 
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000 0.0 000000 0 00000000000 


02-09-/'* 


I - E - Q - P - n-l 


EGPai 


I-r-O-P-Q-l 


SEPT 1971 


C 

C 


C 

C 

C 

C 

C 

C 

c 

c 


WRITTEtJ 3Y OENISH GOEL 
OFSCRIPTIOM of IFVCIS OF PUANTinNG FOR A9 ARRAY 

mfnts have already been obtained* 


ENTRY POINT. 

CALL lEQPni <N,K»Ft IQ»IMT^> 


arguments. 

N 

K 

F 


C 

C 

C 

c 

c 

c 


10 

IMIN 


NUMBER OF ITEMS TO 3E QUANTIZED, THE 
dimension OF THE F ARRAY. 

the number of 

INPUT ARRAY OF CUMULATIVE DISTRIDUTI 

FUNCTION. ^ . r-wT, o 

OUTPUT ARRAY OF QUANTIZING LEVELS. 

THE LOWEST POSSIBLE LEVEL IN 
THE INPUT DATA. 


SUBROUTINE lEUPD H M iK ♦ ^ 

DIMENSION P(l>,IQtl> 

DIF=10.**6 

OBTAIN the first QUANTIZING L^EL. 

GO THRU THE WHOLE ARRAY OF C.D.F,S 

DO 1 J=1,N 

FIUO PERCFNTAGF of OISFRIOUIION FOR FIRST QUANTIZING LEVEL AND 
CHECK FOR THE NEAREST C.D.F. 

X=A3S (1 . /PLOAT (KJ -F <J) ) 

IP(OIF.LE.K)GOT01 

OIF=Y . 

ISAVE=J 

CONTINUE ’ 

FIRST QUANTIZING LEVEL 
IQ(l»=ISAVE*IMIN-l 
TO GO FOR NEXT LEVEL 


lEOPQlOl 

IEQPQ102 

IFQPQinB 

lEQPaiO', 

ifopqiob 

lEQPOlOB 

lEQPQinz 

IEQPQIO" 

IEQPQI-09 

IFQoQIIO 

lEQPQlll 

IE0PQ112 

lEOPQllB 

lEQPQllA 

IEQPQ115 

IEQPQ116 

lEQPQllZ 

lEQPQil^- 

0NIEQPQ119 

lEOPQiZn 

IEQPQ121 

IEQPQ122 

IEGPQ12.-5 

IEQPQ12A 

IEQPQ12G 

IEQPQi2B 

IE0PC112? 

IEQPQ12B 

IEQPQ129 

IEQPQ13Q 

IEQPQ.131 

IEQPQ132 

IEQPQ133 

IEQPQ134 

IEQPD135 

IE0PQ136 

IEQPQ137 

IFQPQISB 

IEQPQ139 

lEQPQlAQ 

IEQPQ141 

IEQPQ142 

IEQPQ143 

lEQPfUAA 

lEQPQl'fS 

vIEQPQlAE 

,/iFQPQl<»7 

lEQPQlAB 

lEOPOl^g 

IEQPQ150 
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20.4ft4 


I-E-Q-P-a-l 


lftoff=isave ■ 

00 2 1=2. K 

DFCIOE FOR OTHER QUANTIZING LEVELS IN THE SINILAR HAY. 

0IF=10.**6 
90 3 J=LFT0FF.N 

THE P'^RGENTAGE OF DISTRIBUTION FOR NEXT QUANTIZING LEVEL WIlL 
BE OECIuEC AMONG REST OF ELEMENTS. 

X = A9S( ( (l.-E<LFT OFF) ) /float (K-I + in 4-F (LFTOFF)-F(jn 

i'-'(C-If‘.LE.X)GO TO 3 

DIF = X 

ISAVE=J 

GET THE NEXT QUANTIZING LEVEL 

3 CONTINUE 

ia(I)=ISAVE+IMIN-l 
LFTOFF=ISAVE 
2 CONTINUE 
RETURN 
END ' 


lEQPQlG 1 

IEQPQ15? 

IEQPQ1G3 

lEOPQlS'i 

IEOPQIGB 

IEQPQ156 

IEQPQ1G7 

lEOP-QlSa 

1EQPQ1G9 

IEOPQ160 

IE0PQ161 

lEUPqiBP 

lECPOlGS 

IEQPQ164 

IE0PQ1F5 

IEQPQ1B6 

IEQPQ167 

IEQPQ16H 

IEQPQ169 

IEQPQ170 

IEQPQ171 

1EQPQ172 

IEQPQ173 

IEQPQ174 
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02-12-7** 


20.743 


R.t _T_Q_n.x 


JUNE 1T73 


CRITOMT 


R-I-T->0-W-T 


WRITTEN OY RMH 

VERSION 1 '’Y >»J nOS-EY FOR T7\PE OUTPUT OPTION 
VERSION 2 PY RJ OOSLEY FOR MERGE 


JJNE 1973 

SE«T 1971 
NOV 1972 


JUNE 1973 

GESCRIPTION OF PROGPflM. 

■" This SUBROUTINE PUNCHES, PRINTS, OR WRITES TO FILE(IF) THE TEXTURE 


DATA ACCOPJlNG TO THE PNJH / MERGE OPTIONS 


ENTRY POINT. 

■ CALL r; TOWT(L EX 1, LEX2, W.EX3 ,LEX4,G, :q, MERGE, MERGE, J.F, PI- TUR) 


ARGUMENTS. 

LEXI-LEV4 

G 

IQ 

MFRGE 

IF 

PICTUR 


INTERNAL PARAMETERS. 
PNCH 
PNCH 
PNCH 
NPE'O 
NLAYER 
N>^T 
N 

H 

Ml 

N1 

KOUNT 

ANGMOM. . .CORMAX 

NOBL 

IMT 


ADDRESS INOEXS FOR THE LEX ARRAYS 
CDF FOR THE IMAGE DATA 
QUANTIZED OUTPUT OF lEQPQl OF NQUANT 
LEVELS 

OPTION TO MERGE THE FOUR LEX ARRAYS 
INTO ONE ARRAY 
FILE CODE FOR OUTPUT TAPE 
OPTION TO PRINT A PICTURE 0" THE 
IMAGE, USED TO VARY SPACING 


=TAPE FOR TAPE OUTPUT ON Ft;.E IF 
=Y FOR PUNCH OUTPUT 
=N FOR PRINTER OUTPUT ONlY 
REDUCTION FACTOR F.ROM FPLXIT 
ThE POWER TO WHICH NREO IS RAISED 
AMOUNT OF REDUCTION IN FPLXIT 
the number OF ANGLES USED IN LEX 
ARRAYS 

THE LEX ARRAY CONTAINING A.. THE 
merged ARRAYS 
IMAGE ROW INDEX 
IMAGE COLUMN ^NDEX 
CARO COUNTER 
FEATURES 

NUMBER OF BRIGHTNESS wEVE^S IN IMAGE 
LINE COUNTER FOR MERGE OPTION 


SUBROUTINE RI TOWT ( LEX 1 , LEX2 , LEX3 , L EX4 , G , IQ , MERGE , IF , Po-CTUR) 

DIMENSION LEXl(l),LEX2(l),LEX'^(l),LEX4(l),G<64),in<64»,3(4| 
COMMON M1,N1,TYhF,F(14),Ij0(9),ANGM0M(4) , AMFAN (4 ) .SGMASQ (4 ) , 

1 SGMAXY ( 4 ) , DIF MOM ( 4 ) , RATIO < 4 ) , VIOMOM (4 ) , TMEAN, LEAST I ,NRtO 
COMMON N ayfr,nstart,nt:mes,nd,pnch 
COMMON /E-7ENTR0P(4) , D I PENT ( 4 ), DI F A V E ( 4 » , DIFVAR( 4) ,SUMENT(4> , 
1SUMAVEC4) ,SUMVAR(4) 


RI TOWTOl 

R1 T0WTT2 

RITQWTO.T 

RI T0WTG4 

RITOWTOB 

RITOWTHf, 

RITOWT07 

RI TOWTOa 

RI TOWT09 

RiTOWT.lQ 

RITOWTll 

RIT0WT12 

RIT0WT13 

r: T0WT14 

RIT0WT15 

RITOWTIF. 

RIT0WT17 

RITOWTl*? 

RITOWTIR 

RIT0WT2D 

RIT0WT21 

RI T0WT22 

RIT0WT23 

RIT0WT24 

RIT0WT25 

RITDW.T26 

RIT0WT27 

RIT0WT2A 

RIT0WT2P 

RITOWT30 

RI T0WT31 

RIT0WT32 

RIT0WT33 

r:T0WT34 

RIT0WT39 

RIT0WT36 

RIT0WT37 

RIT0WT3H 

RIT0WT39 

RI TOWT40 

RIT0HT41 

RITQWT42 

RIT0WT43 

RIT0WT44 

R. T0WT45 

RIT0WT4F 

Rlt0WT47 

RItOWT4a 

RIT0WT4P 

RITOWT50 
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02-12-74 20.743 


R-I-T-O-W-T 


JUflE n7 5 


COMMON /CORREL/CORINF (4 5 .CORHUT (41 ,C0KMAX(4) 
LOGiCAu MERGE, PiCTUR , 7 c/ 

DATA em ,0(2) ,3<3> ,0 <4>/0.t45..90.,135./ 
DATA TAPE/IHT/ 

DATA Y/lHY/ 

data kount/o/,imt/o/ 

NFT=NRE0*'^N«- AYER 
N=4 

KRJ=50 

M=3 

CHECK FOR 7HE MERGE OPTION 
IF (MERGE) GO TO 22 


EEPBODUCIBILITY OF THE 
ORIGINAL PAGE IS POOR 


PUNCH OR NO PUNCH 

IF (PNCP • MO .Y ) GO TO 400 

PUNCH TEXTURE FEATURES FOR AIL FOUR ANGLES 

WRITE(43,60) M1,N1,NFT 
106 FORMATdX, 2A6, 12HIS COMPLETED) 

^“,rEu?rJ;N..Nr,« 0«<K,.K=1.4...EKT,0P,K,,K=l,...K0U»T 
.,.r:O.K,,K=.,«...SGH«Q.K.,K=l,.4,.KOUNT 
SEfXeS:! .SG«««Y.K.,K=1.4...4MEAN<K.,K=1.4,,K0UNT 

(VIOMOMIKl,K = l.<.>.lT»E«N.K=1.4I.MUm 
,0IfENT,K,.K-1.4..,DIF.VE.K..K.1.4,,KOmn 

Seu?"";:! ,Mrv 4 R.K.,K=l. 4 .,.SU«ENT.K,,K = l.4l,<OUNr 

,SUHAVE.K..K-t.4.,.SUMV.R.K.,K=,,4.,KOUNT 

(O0BI..F (Kl ,K=1.4) . ICOBHUt IK. .K=l .4) .KOUNT 

WRIIEIK^Sot. COBMAXIKI ,K = ti4l .KOUKT 
600 F0RMAT(1X,8F9.5»I7) 

601 format ( IX , 4FR. 4,3flX, 15) 

661 FORMATdX, 4F9.5,36X,I7) 

400 CONTINUE 

C WRITE TEXTURE FEATURES TO TAPE FILE ’IF* 

;RlS?F>Ml!SnNFY?(I!!GM;5(K),Kd 


RIT0WT51 

RIT0WT52 

RIT0WT53 

RIT0HT54 

RIT0WT55 

RIT0WT56 

RITOHT57 

RITOWT5H 

RIT0WT99 

RITOWTGO 

RITOWT61 

RITOMT62 

RIT0WT63 

RIT0WT64 

RITOWT65 

R*T0WT6F. 

RIT0WT67 
RITOMT 68 
RIT0WT6° 
RITOWT70 
RITOWT71 
RITOHT72 
RIT0WT73 
RIT0WT7A 
RI TOW T 75 
RIT0HT76 
RIT0WT77 
RITOWT7P 
RITOWT7'^ 
RITOWT 8 C 
RITOWT31 
RITOWT32 
RITOWT3? 
RITOWTB' 
RITOWT 8 '. 
RITOWTOr 
RiTOWTflT 
RITOWT 8 ' 
RITOWTB^ 
RIT0WT9 
RIT0WT9' 
RIT0WT9' 
RIT0WT9 
’ RI T0WT9 
RITOWT9 
RIT0WT9 
RIT0WT9 
RIT0WT9 
RIT0WT9 
(RATIOiK)* RITOWTO 


209 


0 2-12-7'. 
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R-I-T-O-W-T 


JUNE 1973 


C 

c 

c 



l,N)-, 


PRINT TEXTURE FEATURES FOR EACH ANGLE AND TITlE 


60 


303 


WRITE(6,60) Ml.Nl.NFT 
FORMAK/* THE SCENE ' 
WRITE(6, 3Q3» 

FORMAT (6H ANGLE .9H 
SGMAXY ,/3H IVOMOM 
SUMAVE .8H SUMVAR 


C,I2t*»’.I2,*» HAS 


3EEN REOUCPO 
RATIO 


RITOHTOl 
RiTowroE 
R1 Towrn.5 
ORMUT(K», RI TOUT O'. 

RITOWTOS 
RITnwr 06 
R 1 T 0 W;T '37 
RI TOUT HA 
RI TOUT09 
RI TOUT 10 
R; TOUT 11 
RIT0WT12 
RIT0UT13 
RITOWTl'. 


BY *.15) 

SGMASQ 1 
SUMENT 


300 


F0RMAT(6H ANGLE .9H ANGHOM .BH ENTROP ,AH RATIO ♦ 8H SGMAb 

18H SGMAXY ,8H IVOMOM ,at- w.FFNT »PH DIFAVE t 8h DIFVAR ,«H. SL,.*,.,. , 

18H SUMAVE .8H SUMVAR »OH CORIMF .7HC0PMUT ,8H GORMAX ) RITOUTIS 

WRI T£ (6 I 3 0 0 ) < 9 ( '-O .ANGHOM (Kl » ENTROP (K).RAT*0(K5 ,SGMASQ(<) »SGMAXY(K)RIT0UT16 
1,VIDM0 M(K) ,o:FENT(vO .lIFAVE(K ).DIFVAR(K), SUMENT (K), SUMAVE <K) . RI TOUT 17 

?SUMVAR(K) , CORIN'^ (K) .CCRMUT(K) .CORHAX JK) »K = 1.N» 

FORMATdX.FG.l .16F8.A) 

uDTTP/t.cnm TMPA 


100 


URITE(6,6Q0) TMEAN 
',ONTIMUE 


IF NEITHER PNCH NOR TAPE, PRINT LEX ARRAYS 

IF ( (PNCH.EQ.Y) .OR. (PNCH.EQ.TAPEH RETURN 
WRITF(6,3n) G 
UPITE(6,31) 10 

30 F0RMAT(2H F/ ( 1 X , 16^7 . 3 H 

31 FORMAT(3H 1 Q/ (IX , 16i 7 » 1 V 
NO8 c=T00(1)-ID0(?)+1 

IF MERGE, JUST DO LEXl AND RETURN 

IF (MERGE) GO TO 54 
URITE(6,566) 

t t A n \J 


) 66 


URITE(6,566) 

FORMAT(//IOX,9HO DEGREES) 
DO 50 i=l,NOBt 

M«:= 1 • (T-1 1 /?ti 


NS = i.» (I-l )/2+l 
NE-(I*l)»:/2 


REPEODUCIBILITY OF THE 
OEIGINAL PAGE IS POOE 


PRINT LEX2 FOR 0 
WRITE (6,700) 

^ A ^ § A KJ ^ e. 


DEGREES 


H‘?irtlb,''UUJ (L‘=’X2 ( J) , J=NS,HE) 
F0RMAT(1X,26I5) 

WRITE (6,967) 

Myxnk.AVf A » A n \1 


WRITE (6,967) 

FORMAT(//10X,1 0H45 DEGREES) 
00 51 I=1,N09l 
NS = i* (I-D/2 + 1 
NE= (X+1 )*:/2 


RI TOUT 17 

RI T0WT18 

RIT0WT19 

RIT0WT2Q 

RIT0WT21 

RITOWT22 

RIT0WT23 

RIT0WT24 

RIT0WT25 

RI TOUT 2 6 

RIT0WT27 

RITOHT28 

RITOWT29 

RITOWT30 

RIT0WT31 

RITOWT32 

RIT0WT33 

RIT0WT34 

RITOWT35 

RIT0WT36 

RI TOUT 37 

RIT0WT38 

RIT0WT39 

RITOWT40 

RIT0WT41 

RIT0WT42 

RITOWT43 

RIT0WT44 

RITOWT45 

RIT0WT46 

RITnWT47 

RIT0WT48 

RITDHT49 

R1TOWT50 
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R-i-i-o-w-r 


JUMP l'?73 


c 

c 


54 


print LEX4 FOR 45 DEGREES 

(LEX4 ( J> »J-NS»NHI 


51 WRITE (6, 700} 

WRITE (5.90) 

99 F0R9AT(IH1) 
WRlTF(5.56fl) 

568 FORMA T ( 7 / inX . 1 ( 1 H 90 
DO 52 i, = t.NOGu 
NS=i» (I-I»72*l 
NE = (I'*'1)'"I72 


DEGREES) 


C 

C 

c 


52 


569 


C 

C 

C 


c 

c 

c 

c 

c 

22 

C 

c 

c 

c 

c 

c 


662 


C 

C 

C 

23 

C 

c 


OEGREFS) 


53 


WRITE(6.700) 

return 


CHECK TO SEE 


IF (PICTUR) GO TO 23 


INCREMENT 

IMT=IMT+1 


RI TOWT51 
r: T0WT5? 

r:towt53 
RITOWif 54 
RI TOWT55 
r:TOWT56 
RITOHT57 
RI TOWTOA 
RITOWT5P 
RIT0WT6Q 
RiTOv^ret 
RIT0WT62 
R: T0WT6'' 
RIT0WT64 
RIT0WT65 
RIT0WT66 
RITOMT67 
RIT0WT6P 
RIT0WT69 
RITOWT7f. 
RITOWT71 
RIT0WT7? 
RITOWT77 
RIT0WT7'. 
RITCWT7'' 

RITOWT76- 

R1TOWT7- 
RITOWT7' 
RITOWT7C 
RITOWT^i: 
RIT0WT8: 
RITOWTB' 
RITOWT8 
RiTOWTfl; 
RITOHTB' 
RITOHTfl' 
RITOWTB 
RITOWTS 
RITOWTB 
RITOWTO 
RIT0WT9 

n n t''^ r\ SSMAXY IVOMORITOWTP 

IX.'ANG.E «ngmom entrop ratio sgmasos^ RITOWTO 

DIFVAR SUMENT SUMAVE bunvttK RITOWTO 


PRINT LEXl FOR 90 DEGREES 

WRITE (6.7 00) (LEXl (J) .J=NS«NE) 
IF (MERGE) RETURN 
WRITE(6,'569) 
FORMAT(//10K»ilNl35 

DO 53 1 = 1, NOEL 
NS=I* (1-1)72+1 
N'^ = (I+1> +^72 

PRINT LEX3 FOR 135 DEGREES 

(L^'XS ( J) ,J=NS,NE) 


RITOWT FOR THE MERGE OPTION 


IF A PICTURE has been PRINTED 


PAGE COUNT 


IF PAGE IS FULL GO TO TOP OF NEXT PAGE AND WRITE TITlE 


iF(IMT._E.l) WRITE(6,662) 

IF (xMT.GE.14) IMT = 0 
PORMAT(1H1.40X.*ERTS TEXTURE 


IM DIFENT OIFAVE 
1 rORMAX •/) 

CHECK FOR PUNCH 

IF (PNCH.NE.Y) GO TO 40 

PUNCH THE merged' TEXTURE FEATURES 


is pooe 


RIT0WT9 
R1T0WT9 
RIT0WT9 
RITOWT 9 
R1T0WT9 
RITOWTO 
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663 

664 
666 
40 
C 

o 

c 

c 


c 

c 

c 

41 


666 

667 

C 

C 

C 


W=!ITE(43.663) HI , N1 , NFT , ft NGMOM J m , FNT POP ( M ) , R A r 10 (N » , S3MftS Q ( M) , 

1 SGHAXY(H) *AHEAM(M) .VIOHOH(M) iKOUNT 

,„E.N,t>IFENT<Hl.orFAVEIH..MFV«R(«).SUHEMrl»). 

1 SUHAVE (M ) .S'lHVAP, (Ml .KOUNT 

WRlTE(4^'i!6l'3l C0P.INF (M) , 0 ORHUT ( M» , CORMA X ( M) , KOIJNT 
KOUNT=!<OU-IT«-l ; 

FORM A T( 1 2 . IX , I? . T 2 t IX t7F9 . 6 t , 9) 

F0RMAT(3X,7F9.6»i9) 

FORM AT ( 3X , 3F9. 5 t 36X . I 9) 

CONTINUE 

CHECK FOR TAPE OUTPUT 
IF (PNCH.NE.TAPE) GO TO 41 

WRITE OUT ONTO FILE 'IF- THE MERGED TEXTURE FEATURES 
^,Trc/TP» Ml N1.NFT,ANGH0M(M) ,ENTR0P(M) ,RAtIO(M) ,SGHASa(M) t 

3 CORMAX(M) 

IN ANY CASE, PRINT THE MERGED TEXTURE FEATURES 

«^^'^^l'^’t°^'’^’''^’fiN?MOM(M>,ENTP0P(M),RATI0{M),SGMASt5(M),SGMAXY 

ir,S;HnLFF«T,;;”“FljE;F"o.FV.F^^ 

2SJMVAR(M) ,CORINr (M) ,CORMUT(M) ,CORMAX(M) 

F0R.MAT(1X,*MERGE*,15F8.4) 

WRITEI6,667) TMEftN 
F0RMAT(1X,F9.5/» 

NOW GO PRINT OUT THE MERGED -EXl ARRAY AND RETURN 

GO TO 100 
END 


RI TOWTHl 
RITOWT02 
RITOWT03 
RITOWTn4 
RITOWTOS 
r: TOWT06 
R1TOWTQ7 
RITOWT08 
Rl TOUT 09 
RITOWT 10 
RITOWT 11 
RIT0WT12 
RITOWT12 
RITOWT14 
RiTOWTlS 
RITOWTlf 
RITOWT 17 
RITOWTIF 
RITOWT 19 
RITOWT2C 
RITOWT 2; 
R. TOWT2F 
RI TOWT2:- 
RITOWT2'- 
RITOWT?^ 
RI TOKTEf 
(M)RITGWT2‘ 
R1TOWT2J 
RIT0WT2' 
RIT0WT3( 
RITOHT3- 
RITOWT3,' 
RITOWT3 
RITOWT3' 
RITOWT3‘ 
RITOWT3‘ 
RIT0WT3 
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c Cross-Band Texture Analysis Program Listings 
SPECTR 

GETIM / GETIT 

ERTS (see IV.2-a) 

DIFFER 

COVAR 

MNCVIN / MNCV 
CORREL 


02-1.2-74 ia.62g 


CSPECTR 

C 


CROSS-PANO TEXTURE 


gross-oamd texture analysis 

ANALYSIS 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 


c 

c 

c 

c 

c 

c 

c 

c 

c 
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OF PROGRAMS WHICH 03TAIN 
PROM THE EPTS INPUT TA=E 
AND THE 
FIlE IFILE 


A 

AND 


-OR 


DESCRIPTION OF PROGRAM 

THIS program is THP MAINLINE 
NUMLIN X NUMPPL X NDIM SUBIMAGF „.To-y 

EACH SU3IMAGE CALCULATES THF COVARIANCE MATRi 

c5R«e!«?:ON n«rRIX. this matrix is «I..ttEM,TO 

'“""HfERis'-^rE'lS PSOCESSrS IM HOPIZOMTA.XROMS 0= SUSIMACSS. 
S-J3.-MAGES MAY OVESLAP M OP- Z?"! Y ANyERnCAUY. AMS IH- 
DISTANCE PETWEEN NEIGHRORa.NG vELLS USED 
IS VARIAB-E. 


FOR 


lU THE DIFFERENCE ARRAY 


NOTE ^ __ _ 

ERTS INPUT TAPE MUST EE ON _ 

A RANDOM DISC FILE IS REQUIRED ON FiuE 


11 S 


FILE 11»A11R»3QR 


internal 


PARAMETERS 

NDIM 

NUMLIN 

NUMPPL 

NROW 

NCOL 

IDIST 

IRSTRT 
IRS TOP 


NUMBER OF 
NUMBER OF 
NUMBER OF 
ROW COORD 


c 


c 

laphor 

c 

larver 

C 

NHOR , 

c 

c 

IPEND 

c 

LASTIM 

c 

COR,COV 

c 

ttiL 

c 

TITLE 

c 

FMT 

c 

OPT 

c 

PNCH 


IF 

label 

GET 

ENTROP 

KT 


GREY TONE N-TUP-E COMP» 

LINES IN A 5 U 3 1 M A 5 E , " 

COLUMNS IN A SU'^IMAGE 
FOR THE SUBIMAGE 
COLUMN COORD FOR THE SU3IHAGE 
DISTANCE BETWEEN NE-GHBOR-NG RES, 
cells for the DIFFERENCE IMAGE 
STARTING ROW FOR THIS RUN 
STORING ROW FOR THIS RUN __ _ 

SET=0/TH£ STRIP WILL BE 3RD,,ESSED 

TO ITS END OF FILE ‘ 

horizontal overlap Of", 

VERTIlAl OVER-AP OF SUPiMAA,ES 
NUMBER OF OVERwAPING HORxZONTAL 
SUBIMAGES IN A ROW 
ENDING POINT FOR ONE LINE FROM ERTS 
FINAi. ROW OF SJBIMAGES 
correlation, COVAR.ANCE MATRICES 
TITLE-FOR THE MATRIX -f 
TTTLE for the MATRIX 

FORMAT FOR PRINTING OUT MATRIX TERMS 
TRUE TO PRINT OUT COVARIANCE MATP.X 
determines OUTPUT FILE FOR FEATURES 
TRUE FOR FIuE 43, PUNCHED CARDS 
FALSE FOR FiwE 01, TAPE OR DISC 
OUTPUT FILE FOR FEATURES ^ 

ROW AND COL NAMES FOR MATRIX PRiNTOUT 
SeIeSnAHT of the GORPEIAIIOM MATRIX 
ENTROPY MEASURE 
CARO COUNTER 


/■' 

OF THE 
TS POOU 


LA3- 

SPE.TP.Ol 
SPECTR02 
SPECTP03 
SPECTR04 
SPEOTPOB 
SPECTROB 
SPECTRA 7 
SPEGTROfl 
SPECTR09 
SPECTRIO 
SPECTRll 
SPEC TP 12 
SPEGTR13 
SPECTP14 
SPECTRIB 
SPElTRIB 
SPECTR17 
SPECTR13 
SPEC TRIP 
SPE.CTR20 
SPECTR21 
^SPECTRE? 

- SPEC TR 2 3 
SPECTR24 
SPECTR25 
SPEoTR26 
SPECTR27 
SPECTP.23 . 
SPEC TP 29 
SPECTR30 
SPECTR31 
SPECTR32 
SPECTP33 
SPEC TP 3 4 
SPEC TR 35 
SPECTR36 
SPECTP37 
. SPEGTR38 
SPECtP39 
SPEC TR 40 

>;SPEdtR4i 
SPECTR42 
SPECT;R43 
SPEGTR44 
spe.:tr45 
SPECTP46 
SPECTR47 
SPECTR49 
SPECTR49 
SPEC TP SO 
SPEGTR51 
SPECTR52 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 
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INPUT ARGUMENTS. 

IMAGEtX 
ILINE 
-YOIM 
IXOIM 
NOIN 


CROSS-BAND TEXTURE ANALYSIS 


ARRAY CONTAINING SUBIMAGE 
ARRAY FOR READING ERTS TAPE 
ROW DIMENSION OF IMAGE 
COL dimension of IMAGE 
EQUAL TO NDIM.NO OF BANOS 


entry POINT. 

L all SPECTRdMAGEtX, ILINF i IXD IM , I YD I M , NOIN ) 

EXAMPLE OF DRIVER. 

uIMENSION :MAGE<1o, 17,4) ,X(16,17t4> ,ILINE(330T> 
EQUIVALENCE ( IMAGE ( 1 . 1 . 1 ) , X ( 1 . 1 t 1 » i I Ll NE ( 130 ) ) 

*XDIM=17 

j.YDIM=l6 

NDIM=4 

CALL SPECTRE (IMAGEtX, ILINE, IX0IM,IY0IM,N0:M) 

STOP 

END 

This PROGRAM WILL SET UP THE TEXTUR RUN FOR 16 X 16 SUB? MAGES 
OVER ALL FOUR BANDS, WITH IDIST=1. **»NOT IXO IM MUST INCLUDE 
N'JMPPL PLUS IDIST, AND ARRAY ILINE MUST HAVE AT LEAST NUMPP_*NOIM 
POINTS OUTSIDE OF ANY OTHER ARRAY. THESE POxNTS FORM ARRAY XLINE 
WHICH IS USED IN COVAR TO SEND ONE LINE OF DATA TO MNGV. 

SUBPROGRAMS REQUIRED. i 

DRIVER 

SPECTR • 

GETTM 

SETDTM 

GETIT 

ERTS (WITH EREWND) 

DIFFER 

COVAR 

MNCVIN 

MNCV 

CORREL 

SFA07F 

HEMDET 

SUBROUTINE SPECTR (I MAGE ,X , I lINE , IXD I N , I YOI N, NOIN ) 

DIMENSION IMAGE( I YDIN , I XGI N , ND IN) , I LINE ( 1 > ,TI TlE ( 14 » , AR ( 5) , 

1 label ( ft) ,COR (8, 8) ,COV ( 3, 8) , X (i YDIN, I XD-N.NDIN) 

CHARACTER RO W* 1 2 , C Ox. 1 2 , T T L » 6 ( 1 4 J 
EQUIVALENCE (ROW , T TL ( 13 ) ) , ( wOL , TTL (11) ) 

LOGICAL OPT,PNGH 

NAMELIST /PARAM/ ND IM , NUMuI N , NUMPPu , FMT , TI TLE , OPT , I D 1ST , I RSTRT, 

1 irstop,laphor,lapver,pnch 

DATA TTL (1 )/ *C0VARIAN:E OVER SUBIMAGE •/, TTL (6 )/' CORREL ATION 




SPECTR5 
SPEC TPS 
SPECTR5 
SPECTPS 

Spec IRS 

SPECTP5 

SPECTR5 

SPECTP6 

SPECTP6 

SPECTR6 

SPECTRE 

SPECTR 6 

SPECTP6 

SPECTR6 

SPECTP6 

SPECTP6 

SPECTR6 

SPECTR7 

SPECTP7 

SPECTR7 

SPECTR7 

SPECTR7. 

SPECTP7 

SPECTP7' 

SPECTR7- 

SPECTP7 

SPEGTP7' 

SPECTR3- 

SPECTR.8 

SPECTR8- 

SPECTR8 

SPECTP8' 

SPECTR8’ 

SPECTRSf 

SPECTR8 

SPECTR8' 

SPECTR8' 

SPECTR9 

SPECTR9' 

SPECTR9’ 

SPECTR9' 

SPECTR9'' 

SPEGTR9' 

SOECTR9f 

SPECTR9. 

SPECTR9' 

SPECTR9^ 

SPECTRQI 

SPECTRO: 

SPECTRO; 

SPECTRO. 

SPECTRO' 



OF THF 
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CROSS-BAND TEXTURE ANALYSIS 


C 

c 

c 

c 


c 

c 

1 


c 

11 


4 

5 

6 
7 


c 


lOVER SU3IMAGF — - V 

DATA label ( 1>/ 'OAMD 2 2X2 BANG 3 3X3 2X3 t 

data format/ 'E 11.4V *TI TLE ( 1 » / 0 . 0 / , FM/ * F9 . 5 V 


AND 4 4X4 


2X4 




SECTION I SET UP PARAMETERS FOR PROCESSING 


OPT=. FALSE. 

PNCH=.TRUF. 

IOIST=l 

TRSTRT=1 

IRSTOP=0 

LAPHOR=0 

LAPVER=0 

IXDIM=IXOIN 

iyoih=xYo:n 

NQIM=N0IN 
MCIN=NOIN 
NUMLlN=iYniN 
NUMPPL=NUMLIN 
FMT=FOPMAT 
• KT=0 


read (S fPAPAM) 


READ IN PARAMETERS 
WRITE OUT PARAMETERS 


WRITE (6.1 
FORMAT(20 
IFdRSTOP 
WRITE(6.2 
FORMA T(1X 


1 

1 

1 

1 

1 

1 

1 

1 


IF (.NOT.O 
FORMAT (• 
IF (NUMPPL 
WRTTE(6,4 
FORMAT (• 
STOP 

IF (NOIM.L 
WOITE (6,6 
FORMATC 
STOP 

K9=TX3IM- 
IF CIOIST. 
WRITE(6,3 


X, ’SDECTRAL-TEXTURAL ANALYSIS PROGRAM*) 

.EQ.O) :rST0P = 99R999 

)NUMPPL .NUMLIN.NDIMtFMT.IDIST.LAPHOR.uAPVeR.'-RSTRT.ARSTOP 

, ’NUMBER OF COLUMNS *N SUBlMAGE IS *.13/ , 

• NUMBER OF LINES IN SUBIMAGE IS *.13/ 

• NUMBER OF BANOS IN SUBlMAGE IS *,13/ 

• FORMAT USED TO OUTPUT MATRICES IS *.A5/ ^ 

• DISTANCE BETWEEN CELuS FOR DIFFERENCE IMAGE IS 

• HORIZONTAL SUBIMAGE OVER.AP IS*, 13,* POINTS*/ 

• VERTICAu SUBIMAGE OVERLAP IS * , 1 3 , * POI N TS * / 

• STARTING ROW IN STRIP IS *,16/ 

• FINA. ROW IN STRIP IS *,I6) 

CHECK PARAMETERS 

PT) WRirF(6,ll) 

ONLY THE CORRELATION MATRICES WIlL BE LISTED*) 

.LE.IXOIM) GO to 5 

number of points per line exceeds *, 14) 


E.NDIN) GO TO 7 

) MDIN ' 

error NUMBER OF BANDS, NOIM, MUST NOT EXCEED 


’, 13 ) 


NUMPPL 
LE.K9) 
2) K9 


GO TO 12 








SPECTRO 
SPECTRO 
SPECTRO 
SPECTRO 
SPEC TP 0 

speJctri 

SPECTRl 
SPECTRl 
SPECTRl 
SPECTRl 
SPECTRl 
SPECTPl 
SPECTRl 
SPECTRl 
SPECTRl 
SPECTR2 
SPECTR2 
SPEC TP 2 
SPEC TP 2 
SPECTR2 
SPECTRE 
SPECTR2 
SPECTR2 
SPECTR2 
. SPECTR2 
SPECT°3 
SPECTR3 
SPECT»3 
SPECTR3 
SPECTR3 
SPECTR3 
SPECTR3 
SPECTR3 
SPECTR3 
SPECTR3 
SPECTRA 
SPECTRA 
SPECTRA 
■ SPECTRA 
SPECTRA 
SPECTRA 
SPECTRA 
SPECTRA 
SPECTRA 
SPECTRA 
. SPECTRB 
SPECTR5 
SPECTR5 
SPECTR5 
iSP^ECTPS 
SPECTR5 
SPECTR5 




2)6 


2-12 

32 

12 

13 


14 

15 


16 

C 

C 

C 

C 

c 

17 

C 

C 


C 


c 

c 

c 

8 

C 

C 

C 

C 

C 


c 

c 


c 


c 
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CROSS-OANO texture ANALYSIS 


FORMATC ERROR IDIST MUST NOT EXCEEP *tI4> 

STOP 

IF (UAPHOR.LT.NUMPPL) GO TO 15 
WRITE(6,14» 

FORMAK* FATAL EP.ROR-~“OVERL AP EXCEEDS SIZE OF SU3IMAGE’) 

IF(L APVER.GE.NUMLiN) GO TO 13 
IF (NUMLlN.LE.iYOIM) GO TO 17 

FORMAtV’^NUMLIN^ EXCEEDS' ,*3, • LINES EXECUTION TERMINATED*) 

STOP 

SECTION II — - PROCESS THE SUSIMAGES ****** 

INITIALIZE THE GETIM PROGRAM 

CALL GETIM(ILINE,IOIST,NOIM,:RSTRT.IRSTOP,NUM-.rN,NUMPPL,LAPVERt 
1 LAPH0R»NH0R*INGR»IPEND) 

^ INITIALIZE HEMP PACKAGE PGMS 

CALL SETDIM(COV,MDIN,MDIN) • 

SET THE OUTPUT FIuE FOR TA°E OR PUN^H 

KOIM=NOIM-l 

IF=01 . 

IF(PNCH) IF 43 FXND THE ROM COORD AND THE .AST ROM 

NR0W=IRSTRT/ (NUMLIN-LAPVER) 

LAST! M= (I RSTOP-I RSTRT + 1 ) / ( NUMi.IN-L AP VER) + 1 
kpe=numpp,.+ioist ■ 

DO 100 M1=1,LASTIM 
NROW=NROM+1 


encode {ROM, 8) NROM 
FORMAT(I6,6X) 


call GETIT 


KS=-INCR 

DO 90 NCO.=l,NHOR 

ks=ks+incr 

DO 50 LLN=1,NUMlIN 
JP=IPEN0» (LLN-1) 

DO 45 KOL=l,KPE 
iP=JP+KS+KOL 


SET UP FOR TITLE OF MATRICES 
PUT THE COORD. NATE iNTO HOL.ERITH 

literal for matrix printing 

GET A ROM OF HORIZ OVERLAPPING 
SUBIMAGES FROM ERTS AND PUT THEM ON 
DISC FILES 11,12,13,14 FOR 4 3AN0S 

PULL OFF EACH SU3IMAGE, GOING ACROSS 
THE ENTIRE ROM 

SET START AND END PIS FOR SUBIMAGE 
GO THRU NUMLIN lINES 

READ A LINE OF THE SUDIMAGi 

READ IN THE RESOLUTION CELL 


SPECTR5 

SPECT»5 

SPECTP5 

SPECTR6 

SPECT»6 

SPECTH6 

SPECTR6 

SPECTP6 

SPECTR6 

SPECTRE 

SPECTRE 

spectre 
SPECTRE 
SPECTR7 
SPECTR7 
SPECTPs? 
SPECTR7 
SPECTR7 
SPECTP7 
SPECTP7 
SPECTP7 
SPECTR7 
SPEGTR7 
, SPEGTRf 
SPECTRE 
SPECTRE 
SPECTRE 
SPECTRE 
SPECTRE 
SPECTRE 
SPECTRE 
SPECTRE 
SPECTRE 

sNctrp 

SPECTR9 
SPECTRp 
SPECTRo 
■ SPECTR9 
SPECTRP 
SPECTRE 
SPEC r°9 
SPECTP9 
SPECTR9 
SPECTRC 
. SPECTRC 
' SPECTRO 
SPECTRC 
SPECTRO 
SPECTRC 
SPECTRO 
SPECTRO 
SPECTRO 


JlMODUCIBILITy OF THE 
PBIGINAL PAGE IS POOR 


217 


2-12-74 lB.fi‘79 


:Rnsr.-CiAN'j TFxru'?^^ ana>-ys:.s 


■read ( 11 ’IP) ( IMAGE (LLNtKOLf 19) ,IB=l,N0IM> 

GOMTTNUE 

CONTINUF OlfFEREMuE IMAGE 

CALL DIFFER (IMAGE, X, IXOIM, I YOIM.NDIM, 10 IS r.NUMPPUNIJM'-n) 

PUT THE COORDiNATE INTO HO..ERITH 

literal for matrix PRINTING 

ENCODE (COL, 8) NCOL COVARIANCE MATRIX ^OR THIS 

SUPIMAGE 

CALL 

WHOSE COORDINATES ARE (NCOuNTOW) 
IF(OPT) CALL SFA07F(CO\/,NDiM,NOiM,NDj.M,2,t,2,FMT,TITi.E»TrL(l)» 

1 TTL(ll) ,TTL(13) ,LAiE-,-A8EL) 

^ get THE CORRELATION MATRIX 

CALL CORREL(COV,NDIM,COP) u.td v 

WRITE OUT THE i^ORREL MATR.X 

CALL SFA0 7F(COR,N3IM,NDIM,NOIM,2,l,2»FM,TITi.E,TrL(6) ,TT.(11) , 

1 TTL(13),LAB-^L, LABEL) COPY COR TO GOV SINCE HEMDET DESTROYS 

ITS INPUT MATRIX 

DO 65 15=1, NDIM 
DO 65 J5=1 ,NniM 

COV(I5, J5)=COR(15, J5) . 

CONTINUE nr^Tirnu r ft MT cno TWC 


GET THE DETERMINANT FOR THE 
CORRELATION MATRIX 


CALL meM0FT(COV,N0IM, DET) 
ENTROP= (-1 . ) ♦ALOG( DET) 
WRITE (6,91) ENTROP 


WRITE lb,'.!. CORRELATION COEFFICIENTS AS 

^ VECTORS FOR PRINCIPLE COMPONENTS 

V 

WRITE QF, 200 )‘ NROW , NCOL , ENTROP ,(( COR (J , KT- 1 )♦ K=J ,XDIM ), J = 1 , KDIM ), KT 

go CONTINUE ^ ^ 

91 FORMATC ENTPOPY MEASURE IS *,F15.5) 

200 FORMAT(2I3,lX,E13.6,6FlQ.6/8Ft0.6/8F10.6/6F10.6,15X,I5> 

STOP 

7 MEMORY^EXPANQEu. USE SLIMITS OR CORE= OPTION FOR NEXT RUN 


SPECT»0 

SPECTFl 

SPEGT^l 

SPECTPl 

SPECTRl 

SPECT'^l 

SPECTRl 

SPEC TP 1 

SPEC TP I 

SPECTRl 

SPEC TRl 

SPECTP2 

SPECTRE 

SPECT'^E 

SPECTRE 

SPECTRE 

SPECTRE 

SPECTRE 

SPECT°E 

SPECTRE 

SPECT'---E 

SPECTR3 

SPECTP3 

SPECTP3 

SPEGTR3 

SPECTR3 

SPECTC3 

SPECTR3 

SPECTR3 

SPECTR3 

SPECTR3 ' 

SPEGTP.4 

spectra 

; SPECTP4 
SPECTP4 
SPECTRA 
I SPECTRA 
\SPECTRA 
SPECTRA 
■ SPECTRA 
SPECTRA 
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18.736 


GET THE IMAGE FROM ERTS 


GET THE IMAGE FROM ER fS 


WRITTEN PY RJ POSLEY 


JAN 1974 


DESCRIPTION OF PROGRAM 

THIS PROGRAM IS INITIALIZED BY CALLING GETIN. ALL FOL-OWiNG 
CALLS MUST RE TO GETIT WH.CH GETS THE SUBIMAGE FROM THl ERTS 
DATA TAPE ON FI'.E COCE *ES*i» AND OUTPUTS A ROW' OF OVER.APPiNG 
SUBIMAGES TO DISC FILE 11. 


internal PARAMETERS. 
^ENGTH 
NOSK 

LNSTRT 

lnincr 

F 


length of one erts line of d?;ta 

NUMBER OF LINES TO SKIP AFTER 
rewinding ERTS INPUT TAPE 
STARTING L5NE IN ERTS DATA FILE 
VERTICAL INCREMENT FOR THE NEXT ROW 
ARRAY CONTIAN.NG CROSS QANO N-TUP'.E 
COMPONENTS 


^^^call°6etim(iline,idist,nd:m,irstrt,irstop,numlin,numpp_, 

LAPVER.-APHORjNHOR.iNCR, IPEND) 


INPUT ARGUMENTS. 

ILINE 

lOIST 

NOIM 

IRSTRT 

IRSTOP 

NUMLIN 

NUMPPL 

LAPVER 

.AP HOR 

OUTPUT ARGUMENTS. 
NHOR 


IPENO 


ARRAY WHERE ERTS LINE IS READ INTO 
DISTANCE BETWEEN NEIGHBORING CELLS 
TO FORM DIFFERENCE ARRAY 
NUMBER OF COMPONENTS OF EACH RES CELL 
STARTING LINE OF ERTS DATA FI-E 
ending line OF ERTS DATA FI^E 
NUMBER OF LINES IN SUBIMAGE 
NUMBER OF COLUMNS IN SU3IMA3E 
NUMBER OF l^NES SUB. MAGES OVERLAP 
NUMBER OF COLUMNS SUBj-MAGES OVERLAP' 

NUMBER OF HORIZONTAL OVERLAPPING 
SUBIMAGES PER ROW 

horizontal INCREMENT FOR FIRST C Ou OF 
THE NEXT SU3IMAGE IN THE ROW 
last POINT' IN ROW 


SUBROUTINE GET IM ( IL I NE , .OIST , NOIM . I RSTRT, I RS TOP, NUM. IN, NUMPPL , 
i lap VERjLAPHOR, NHOR, INCR, IPEMD> 

OiHENSiON ILINE(l) ,F(8) 

INITIALIZE ERTS INPUT TAPE 

CALL EINIT (LENGTH) 

WrITE(6,4) length 

FORMATC wENGTH OF ONE ERTS L'xNE IS *,x6) ^ 

CHECK THE NO. OF WOROS PER RElORD 

IF(LENGTH.LE.3300) GO TO 5 


ItEPKODUCIBiLITy OF THll 
^EIGINAL PAGE IS POOR 
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GET THE IMAGE FROM ERTS 


C 

C 

955 

C 

c 


c 

c 

c 

951 


FORMATi’ -ENGTH OF ERTS LINE EXCEEDS 3300--«.ENGTH = * , 16) 
STOP 


940 


C 

1991 


CALL EPEWriO 


TRSTR=IRSTRT-1 
LNSTRT=1RSTR 
LNINCR=N'JMLIN-lAPVER 
ASSIGN 951 TO JP 
ASSIGN 971 TO KP 

IF (LAPVER.NE.O) GO TO 940 
ASSIGN 950 TO JP 
ASSIGN 970 TO KP 


LEN= (LENGTH-32) /4 

NHOR=0 

IPEND=8 

incr=numppl-laphor 

IPEND=IPENO+INCR 

NHOR=NHOR+l 

K=iPEND+NUMPPL+IDIST 


REWIND THE INPUT TAPE 

F.NO the starting line of FIRST ROW 
AND INCREMENT FOR SUCoESSTVE ROWS 


IF THERE IS NO OVERLAP, 00 NOT REWIND 


FIND FNQING HORIZONTAL POINT IN EACH 
LINE OF THE ROW, AND THE NJM9ER 0* 
OVER-APPING S'J3IMAGES OF NUMPPL POINTS 
that kill Fi-T ACROSS THE R3W 


increment the ending POINT 


TILL NO MORE SUBIMAGES WILL FIT 

IF(K.LE.LEN) GO TO 1991 

1PFN0=I pend-ingr+numppl+ioist ^ 

^ ■ skip the first 8 POINTS IN c.ACH LINE 

FIND THE LAST POINT IN EACH ERTS LINE 

IE=IPEND*4+32-1 

HRITE(6,955) LEN, I pend , NHOR » 

FORMATC TOTAL POINTS PER ROW IS ’,16 /* FINAL POINT -S 

• NUMBER OF OVERLAPPING HORIZONTAL SUBIMAGES iN THE ROW i.S ,15) 
‘ SET THE RANDOM DISC FILE FOR A P*XED 

length of nDim words per record 


CALL RANSIZ(11,NDIM,1) 

IFlIRSTR.rq.O). RETURN 
CALL ESKlPilRSTR) 
RETURN 

entry GET it 

GO TO JP, (950, 951) 


SKIP TO THE line BEFORE IRSTRT 


ENTRY POINT TO GET A ROW 0- SJ8IMAGES 


IFC-NSTRT.EO.IRSTR) 

NOSK=LNSTRT 


CHECK FOR FIRST* GALL-I’F SO,OONT SKIP 
GO TO 950 


LA 


GET1M053 
GETIMQ5<f 
GETI MOB'"' 
GETIMOBA 
GFTIM0B7 
GETIMUBP 
GE TIM 059 
GFTIM06C 
GET! M061 
GETIMCI6? 

get:mo5.t 

GETiMQ6‘. 

GETIM06P 

GETIM06f 

GETIM067 

GETIM06F 

GETIMOe*: 

GETiM07(. 

GETIM071 

GETtMD7? 

GETIM07 ■ 

GETIM07A 

GETIM07B 

GETIM07f 

6ETIM.Q77 

GETIMOZt 

GETI MO 7^ 

GETIM08C 

GET! MOB' 

GETIMOfll: 

GET! MO 31 

GETIM08A 
GETiMQ8L 
GETIM08P 
GETIM087 
GETIHOSf 
GE TIM OS': 
GETIMOOr 
GETIM091 
■ GETIM092 
GET1M09P 
GET;MQ9a 
GETIM09P 
GETIMOgt 
GE jlM097 
.GETIM09P 
GETIMOg'* 
GETiMlOt: 
GETIMlOl 
GETIMIOL 
GETIM103 
GETIMIOL 
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K=N0SK+NUMLIN 


C 

900 


C 

901 

950 

C 


, C 

905 

C 

902 

C 

C 


GET THE .MAGE FROM ERTS 
CHECK IF END OF RUN 


IF(K.Lr.;RGTOP) GO TO 901 
HRITE(6,900» IRSTOP.NOGK 

FOOHATC PROCESSING TERM! MA TFO— NEXT ROW WOULD EXTEND ’AST LAST Li. 
INE *tI6»’ LAST LINE COMPLETED WAS *,I6» 

STOP 

SKIP OVER NOSK uINES IN ERTS FIuE 

call ESKIP(NOSK) 

CONTINUE 


960 

903 

C 

971 

970 


LSSTRT = LNSTRT4-lNINCR 

KT = 0 

00 903 _=1.NUHLIN 
CALL EPEADdLINEf i-N) 


INCREMENT FOR NEW STARTING L^NE 
READ IN NUHLIN LINES FOR THE NEW ROW 


CHECK FOR EOF ON ERTS INPUT TAPE 

IF{LN.NE.Q1 GO TO 902 

FORMATr'^EOF DETECTED ON ERTS INPUT TAPE— PROuESSiNG TERHINATED'i 
STOP 

GO THRU THE LINE CELL BY CE.L 

DO 960 IP=IS»IE,4 
KT s JCT +1 

GET ALL 8 CROSS-BAND COMPONENTS FOR 
THIS RESOLUTION CELL 

F(l) =ILINE(IP+2) 

F (2 ) = (IL I NE (IP + 2 ) ) *IL1NE (CP + 2) 

F(3) =ILlNF(IP+3) 

F (4;) = (ILINF.(IP>3) j^'ILINECP + T) 

F(5)=(:_INE(lP+2))*ILINE(lP+3» 

F (6) =ILlNE(IP+4> 

F (7 ) = (ILINF(IP4-4) ) *ILINF{IP*4» 

F (8» =(IlINE(IP+ 2 ) » *ILlNE(-P+4> 

WRITE OUT THE N-TUPLE OF LSNaTH NDIM 

WRITE(ll'KT) (F(I) ,I=1,NDIMJ 
CONTINUE 
CONTINUE 

GO TO KP, (970,971) • x.oir 

IF THERE IS OVERi.APPi.NG, R- WIND TAPE 

CALL EREWND 
RETURN- 
END 

7 MEMORY EXPANDED. USE SLIMITS OR CORE= OPTION FOR NEXT RUN 


Lf 

GETIM105 

GETIMIQP 

GETIH107 

GETIMin.'^ 

GPTIM10‘ 

GETIHllC 

GETI.Ml.il 

GFTIM112 

GETIMll.; 

GETIMH4 

GETiMUi; 

GETIMllf 

GETIM117 

GETIMllf 

GETlMl 

get:mi2l 

GE TIM 121 

GET4m122 

GETIM12i 

GETIMlZi 

GETIM12E 

GETiM12f 

GETIMl 27 

GETIMtZf 

GETIMIZ'^ 

GFTIMlSr 

GETIM131 

GETIMl 31 

GETIMl 3." 

GETIM134 

GETIM13£ 

GETIMlSe 

GETIMl 37 

GETIM13f 

GPTIM13' 

GET1M14C 

GETIM141 

GETIMl 42 

GETIMl4i- 

GETIM14': 

GETIM14'; 

GETIM14C 

GFT;Mi47 
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GET THE OIFFEUENCE ARRAY 


COIFFER 


GET THE OIFFEREHGE ARRAY 


RRITTEM BY RJ BOSLEY 


JAN 1974 


^^^this^p°og°am^rep!aces thf original image ia with the mear^t 

NEIGHBOR horizontal OIFFERENCF* ( 1 1- J1 » 12 " J2 * • • • * . N- JN) WHERE 
i'aNO J are N-OIMENSIONA. HORIZONTALLY NEIGHPORTNG RESJ.UT.ON 
CEL-S OF OISTANCF lOIST, NOTE T'-'AT THE A1SOLOTE VA^UE IS UjED 
GIVING ONLY THE POSITIVE HALF OF THE CISTR IBU T I ON OF 
DIFFERENCES I-J AMD J-I. 

^^*^CALL°DIFFER {IA,X.IXOIH,iYOIM,NDIH, lOISTfNUMPPLf NUMlIN) 

ARGUMENTS. , .-ooct-i 

the subimage being PR0>.ESSE3 

X DIFFERENCE ARRAY 

2XOIM COL DIMENSION OF X 

lYQIM ROW DIMENSION OF X 

noim the dimension OF EACH reso.'Jtion cell 

JOJ5T distance between resolution cells 

USED FOR the DIFFERENCE ARRAY 
NUMPPL NUMBER OF COLUMNS IN SUBIMAGE 

NUMLIN number of lines in sub. mage 

SUBROUTINE DIF PER ( I A , X * IXOI M ,I YDIM , ND IM , ID 1ST * NUMPPL *NUML. N) 

DIMENSION IA(IYCIM,IXDiM,l) ,X(IYDlM,IXDIM.l) 

GO THRU EACH OIMENS.ON OR BANj 

DO 5 IBANu=i,NDIM ‘ 

DO 4 LINE = 1*NUMLIN GO THRU AlL BUT THE LAST COLUJi^N 

DO 3 KOi. = l*NUMPPL 

KKOL = KOL+IOIST rEPuACE EACH RESOLUTION CE.-. COMPONENT 

BY THE DIFFERENCE 

X(LINE*KOL *IBAN0)=IABS{IA(LlNE,KOLtI3AND) -IA(-INEiKKOLt IBAND )) 

CONTINUE 

CONTINUE 

CONTINUE 

RETURN 

END 
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ia.9?7 


F.NO THE COVAKIAN^E MATRIX EOR THE SU3.HAjE 


find the COVARiANCE HAISIX FOR THE OO3IHA0E 


DVAR 


JAM 1974 


C 

c 

c 

c 


c 

c 


1 

c 


WRITTEN BY RJ BOSLEY 

“""fH:r"Sr,r.H'’?2rErTHE difference CUOIHAOE AND OALCJLATES THE 
COVARIANCE MATRIX FOR IT. 


description of parameters 
percnt 


percentage of total vectors X from 
WHICH COVARIANCE IS CALCUlATEJ 
SCRATCH ARRAYS 
error flag FROM MNCVIN 
error flag from MNCV , 


SCRtXLINEtSAM 
lER 
JER 

^"lAlL'’oovlRlXLlNE.NDIH.NUHPPL,X.IXDIM,IYO:n,NunLIN.HDIN.:OV. 

input ARGUMENp. senD ONE LINE TO MNCV 

dimension of VECTORS X* NO 0- BANOS 
number of CO'.UMNS in SU3IMACE ^ 
FLOATING POINT DIFFERENCE ARRAY 
COL.ROW DIMENSIONS OF X __ 
number of lines xN SUBTMAGi 

dimension of cov array 


XLINE 
NOIM 
NUMPPU 
X 

IXOIM.IYOIM 

NUKUIN 

NOIN 


OUTPUT ARGUMENTS. 
COV 


COVARIANCE MATRIX FOR THE SUB. MAGE 


SUBROUTINE COV AR (XlINE , NO! M , NUMPPL , X, I XDIM , I YD i M, NUML- N, NCIN , uOV 

dimension X(IYDIM,IXDIM,1),XLINE(N01M.NUMPPL»,XMEAN(8).SCR(8», 

PERCNT=tOQ.O INIT''’ALIZE TH*^ COVARIANCE PROGRAM 

CALL HHCVIHINDHPPL.MIH.NJH.IH.PEFCHT.I.XLIHE.NTPUTH.COV.XHFAN. 

1 SCRtSAM.IERi JEPI CHECK FOR AN ERROR 

IF (lER.EO.O) GO TO I 

FORMAH’^*ERROR IN MNCVIN, lERROR IS *,I3) 

STOP 

CONTINUE gQ thru EACH LINE OF v'UaiMAGES 

00 10 LINEsl,NUMi.IN 


COVAROT :3 
COVAROnA 
COVAROOb 
COVAROnfj 
COVARQ07 
COVAROO;» 
COVAROnS 
COVAROlO 
COVARU 11 
COVARO 12 
COVARO 13 
COVARO 14 
COVARO 19 
COVARO 19 
COVARO 17 

covarois 

COVARO 19 
COVAR020 
COVAR021 
COVAR022 
•COVARO 2 3 
COVARO 2 4 
COVARO 29 
COVARO 26 
COVARO 27 
COVARO 2f 
COVARO 29 
COVARO 3f 
COVARO 31 
COVARO ll 
COVARO 37 
COVARO 3t 
COVARO 3E 
C0VARQ3f 
COVARO 37 
COVA'’03E 
COVAR03' 
C0VARQ4I 
COVA°04t 
COVARO 41 
COVAR04 
COVARO 4' 
COVARO 4' 
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ltt.927 


F'NO THE COVARIANCE MATRIX FOR THE SUCIMAjE 


C 


20 


00 6 I=l*N0IM 
DO 5 K0-=1 » NUMPPL 
X.INE(ItK0L>=X(i-INE»K0LfI) 
CONTINUE 


GET ONE lTNE OF DATA 


INCREMENT COVARIANCE CALCULATIONS 


CALL MNCV 

IF(JER.EQ.O) GO TO tO 

WRITE(6,7) JER 

forma TC ERROR IN MNCV, 

STOP 

CONTINUE 


00 20 I=1,N0IM 
00 20 J=I,N0IM 
C0V{I,J)-C0V(I, J»*XMEAN( 
C0V(J,I)=l0V(I,J) 

RETURN 

END 


CHECK FOR GROUNO TRUTH ERROR 


JERROR IS • ,12) 


NOTE***ONLY THE POSITIVE DIFFERENCES 

WERE USED IN THE C ALCU. AT;;0NS THE 

TRUE MEAN MUST 9E ZERO. SO WE MUST 
AuO XMEAN**2 TO EACH ELEMENT 


)*XMEANCJ) 


COVAR046 

COVAROf*? 

COVARO'f*' 

COVAR045 

COVAROSG 

COVARQEI 

COVAROy? 

COVAROGJ 

COVAROGf^ 

COVARO'iE 

COVAROF6 

COVAR057 

COVAR050 

COVARO'59 

GOVARO&r: 

COVARO'Sl 

COVAR062 

COVARQf^iS 

COVAR06<< 

COVAR065 

COVAR06E 

COVARO&7 

COVAROfie 
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CMNCV H N C V I N - M N C V 


C 

C 

C 

C: 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IDENTIFICATION 

program NAMF 
OTHER ENTRY POINT 
SYSTEM 

SOURCE LANGUAGE 

author 

DATE 

PURPOSE 


MNC.VIN 

MNiV 
P!)P-15 
FORTRAN IV 
JAMES 0 YOUNG 
8/18/73 


to CALOOLATE THE MEAN VEOTOt ANO ^VARIANCE SATirlx FOR 
rnrcTrvjv nF A SFT OF VECTORS. THE GA LC U*. AT 10 IS /lILL - 
BASED ON A SPECIFIED PERCENTAGE OF THE VECTORS RANDOMLY 
CHOSEN WITHIN THE SET. 

ERTRT FOIRT - -CVimRFPC«UK01R,»0.;.E^ 

E'^ROR HAS OCCURRED. 


ENTRY POINT - MNCV 

THE CALL TO MNCV S 
TIME WITH THE NEXT 
CATEGORY IS BEING 
NTRUTH ASSOCIATED 
EACH TIME MNCV IS 
EACH CALL TO SEE 
ILLEGAL GROUND TRU 

category is being 
ARE NOT USED IN TH 


mould 3E PERFORMED NCALL TIMES, EACH 
CROUP OF VECTORS IN X. IF MORE THAN .ONE 
CONSIOPREO, THF GROUND TRUTH INTEGERS IN 
ilTH THE VECTORS SHOUlO ALSO BE UPDATED 
CALLFOrANO JERROR SHOULO PE CHECKED AFTER 
IF IT IS NONZERO WHICH INDICATES THAT AN 
TH INTEGER HAS BEEN FOUND. IF UNLY ONE 
CONSIDERED HOWEVER, THE VALUES IN NT..UTH 
E POUTINE. 


AFTER MNCV HAS BEEN CALLED NCALL TIMES TJE^AN VECTOR AND 
TroUTPUT. THESE KUM3ERS SHOULD BE CHECKED 

Then apJropp.Jatf ?o‘ see if enough 

EACH CATEGORY TO GIVE A RESONABLE ESTIMATE OF THE DESIRED 
, STATISTICS. 

ARGUMENTS '■ 

INPUT - , 

L- 

NVPCAL NUMBER OF VECTORS PER CALL 
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'M N C V I N 


M N C 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


NDIH DIMENSION OF DATA VECTORS 

ncall number of calls 

PEOCNT PERCENTA',E OF TOTAL NUMOER OF VECTORS FROM UMICH 
MEAN AND covariance MATRICES HILL BE CALCULATED 

NCAT number of categories CONSIDERED 

=l IF ONLY ONE SET OF STATISTICS WILL RE 
CALCULATED FOR ALL DATA 

=nuhber of catfgories in data if one set of 

STATISTICS WILL BE CALCULATED FOR EACH lATEGORV 

X X tndim,nvpcal) matrix containing input data vectors 

IN ITS COLUMNS 

NT^^UTH ( NVPCALI VECTOR CONTAINING THE GROUND TRUTH 
INTEGERS. 1 Through ncat, associated with the data 
VECTORS OF X» IF NCAT EQUAlS 1 THIS VECTOR WILL NOT 
BE USED. 


NTRUTH 

OUTPUT - 
COV 


COV (NOIM.NDIM.NCATI matrix CONTAINING COVARiANCE 
MATRlX/MATRiCES OF THE DATA 

XMEAN XMEAN(MOIM,NCAT) MATRIX CONTAINING MEAN 
VECTOR/ VECTORS OF THE DATA 

SCTMEN • SCTMEN(NDIM.NCAT) SCRATCH MATRIX CONTAINING AN 
estimate of the mean V'ECTOR/VECTORS 

SAMSZ SAMSZ(NCAT) VECTOR CONTAINING NUMBER OF VECTORS USED 
TO CALCULATE THE STATISTICS FOR EACH CATEGORY 

TERROR ERROR INDICATED IF RETURNED NONZERO 
=1 IF NVPCAL .LE. 0 
=2 IF NOIM .LE. 0 

=4 IF PERCNT .GT. too. OR PERCNT IS SO SMALL THAT 
FEWER THAN 2 VECTORS WILL BE USED TO CALCULATE 
ALL the STATISTICS 
=5 IF NCAT .LE. 0 . 

(IF MORE THAN ONE OF THESE ERRORS OCCURS, 

THE HIGHER VALUE MIuL 8E RETURNED) 

JERROR ERROR INDICAJEO IF RETURNED NONZERO 

=1 IF ILLEGAL GROUND TRUTH LABEL IS FOUND 


INTERNAL parameters 


0 


IIMFBODUCIBILITY OF THE 
OEIOINAL PAGE IS POOR 
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20.«*«*n 

ICALL 
VECVS 

VIBU 

VLT9U 

VLEFT 
INTRU 
IP 
10 


c 

c 


HNCVIN-MNCV 
NUMBER OF TIMES MNCV HAS BEEN CALLED 

total N'JMBPR of vectors HhICH WluL BE INPUT TO MNCV 
TOTAL NUMBER Or VECTORS TO BE USED IN CALCULATION 

OF STATISTICS ^ , 

NUMBER OF VECTORS LEFT TO BE USED IN CALCULATION 

OF STATISTICS 

NUMBER OF VECTORS LFFT TO BE CONSIDERED 
INTECER denoting ground TRUTH CATEGORY 
ARGUMENT TO RCM 
ARGUMENT TO RCM 


INITIALIZER ENTRY POINT 

SUBROUTINE MNCVIN(NVPCAL*NQIM,NCALL»PERCNT,NCAT,X,NTRUTH,C0V» 
i XMEAN,SCTMEN,SAMSZ,IERROR. JERROR) 

DIMEN SI ON X(N0II1» l>,NTRUTH(l)fCOV(NOIM«NOIMiNCATI»XMEAN{NCAT»l) • 
1 SCTMEN (NniM,l > . SAMSZ (NCAT) 


C 

C 

c 


C 

C 

c 


ICALL=n 

VECTS=NVPCAL»NCALL 
IE.RROR = A 

NVT3U=VECTS*PERC.MT/lOO,+0.<t99B9 

VTBU=NVTBU 

VLT9U=VTBU 

VLEFT=VECTS 

INTRU=l 

IP = 33Z!3:T 

10=95555 

JERROR=0 


lA 


CHECK LEGALITY OF SOME NUMBERS •. 


IF (NVPCAL .LE. 0) IERROR=l 
IFtNOIM .LE.OT IERROP=? 

IFTNCaLL .LE.O) IERR0R=3 
IF (PERCNT .GT.100..0R.VTBU.LT.2.) 
IFTNCAT .LE.O) XERR0R=5 


I£RR0R=4 


DO lA K=1 »NCAT 
SAMSZ (K,) =n 
DO l'» J = 1.N0IM 
XMEANCJ.K > = n 
SC THEN (J, K)=0 
DO l«* I = 1,N0IM 
Covcifj»K)=n 


ZERO OUT A FEW ARRAYS 




PAGF 


227 


-09-74 
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M N C V 


M N C V I N 


c 

c 

c 


SET TPANSFER TO REFLECT NUMBER 
OF CATEGORIES 


assign TO IGO 

IF(NCAT.GT.I) assign 15 TO IGO 

RETURN 


C 

C’ 

c 

c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ENTRY POINT FOR ALL CALLS AFTER THE FIRST 


entry mncv 




jMaCALL/5ol*50.NE.ICALL.ANO.ICALL.NE.10) GO TO 1 

UPDATE ESTIMATE OF THE MEANS AND MODIFY 
COVARIANCE CALCULATIONS TO REFLECT 
THIS UPDATE 

DO to K=1.NCAT . 

IF (SAMSZ ( K> . EO .0 • ) GO TO 10 
DO 2 J=1*NDIM 

Z Mvaij^KtccIVCI.J.lO-SJMSZlKl-OiHE.MI.K./IAMSZCKl-SCTHEMlI.K.)* 

1 (XMEAN ( J,K)/SAMSZ (K>'SCTHEN(JttO> I 

DO 3 J=lt NDIM ^ . 

SCTMEN (J - YMEAN (J t K ) /SAMSZ (RJ 

3 CONTINUE ' 

10 CONTINUE 

CONTINUE TO CALCULATE 

UPPER TRIANGLE OF COVARiANCE MATRICES 

1 DO 8 I=1,NVPCAL 

determine WHETHER TO SKIP THIS VECTOR 

IF (RCMCIPtlQ) •GT.VLTBU/VLEFT) GOTO 11 

INCLUDE THIS VECTOR IN CALCULATIONS 


C 

c 

c 

c 

c 

c 

c 


VLTBU=VLT3U-1. 

GO TO IGO* 115,5) 


15 INTRU=NTRUTH(I) 


he ARE TO CONSIDER MORE THAN ONE 
CATEGORY 


CHECK legality OF GROUND TRUTH LA3EL 


OFOTi 


OOCJ o o o o ooo ooo 
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•M N C V I N 


M N C V 


IFdHTRU.LE.'J.OR.INTRU.GT.NCAn GO TO 9 
5 00 4 J=1,N0IM 


SUM FOR MEAN 

XMEAN (J,INTRU) =XMEAN(J,INTRU» +X( J.I» 

00 4 K=1 , J 

SUM FOR FOR COVARIANCE 

C0V(K ,J ,I»TRU>=C0V(K,J,INTRU) 4- ( X ( J, I > -SCTMEN ( J , INTRU » I * < X ( K, I ) - 

1 sctmfn(k,intrU) I 

4 CONTI NUE 

SAMSZdNT^U) =SAMS7 tINTRU) +1. 

11 CONTINUE 
V|LEFT=VLEFT-1. 

8 CiONTINUE 

IF (ICALL.lt. NCALL) RETURN 

ALL VFCTORS HAVE 3EEN INPUT 
FINISH CALCULATION OF STATISTICS 

DO 7 K=1.NCAT 

IF (SAMSZnO .EQ.O. ) GO TO 7 
DO 6 J=1,N0IM 
DO 6 1=1. J 

GOVd,J,K)=COV(I,J,K)/SAMSZ(K)-(XMEAN(I,K)/SAHSZC<)-SCTMENd,K))* 
1 (XMEAN( J,!0/SAMSZ (K)-SCT:-iEN (J.K) ) 

FILL IN LOWER TRIANGLE 

6 GOV ( J, I , K» =C0V (I . J.K) 

DO 13 J=1,N0IM 

XMEAN ( J, K ) =XMEAN ( J »K) /SAMSZ (K) 

13' CONTINUE • 

7 CONTINUE 

12 CONTINUE 

RETURN ' 

9 JERR0R=1 ■ 

GO TO 12 

END 


ir-;; 
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CCORPEL 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


9 

10 


GET THE .ORHELATIQM MATRIX FOR THE ‘'.03IMA3E 

GET THE CORREwATION MATRIX FOR THE SUBIMAGE 

JAM 1974 

WRITTEN BY RJ 90SLEY ' : 

'’"^S!"pw,f.M''-Src5!l.iES Thl- coRRE>.Ar;o« «rR.x Oivrx T-.E 

COVARIANCE MATRIX AND ITS ORDER. 

ENTRY POINT. 

i^ALL 30RREL(COV,NO.M.COR» 

arguments. COVARiAN.E MATRIX ARRAY 

r,niM ORDER OF MATRICES 

CORRELATION MATRIX ARRAY 


SUBROUTINE CORREL (COV , N01M»COR) 


DIMENSION COV(N3IM,NOIM),COR(NO:M^NOIH)^^ OR LINE 

DO 10 LINE=l.NOTM 

GOVLpABS (COV (L.NE, LINE)) DIAGONAL 

DO 9 KOL=LINE.NDIM 

co^^-NlI^Su=cavaiNE^ 

COR (KOk. wINE) =COR (LINE, KO.) 

CONTINUE 

RETURN 

END 


lA 

CORRE^Ol 
CORRE.02 
CORREL 0 3 
CORREL 04 
CORRELOS 
CORREL 0'S 
CORRE'. 07 
CORREL08 
CORRElOR 
CORRE-10 
CORRE'- 11 
CORRE'- 12 
CORRE. 13 
CORRE- 1«. 
CORREL 15 
CORREL 16 
CORREL 17 
CORREul' 
CORREt-l<^ 
CORREL 2 ( 
CORRE- 21 
CORREL 21 
C0RREL2L 
C0RRE.2< 
CORREL 21 
CORREi-2f 
CORRE- 21 
CORREL 2 
C0RREL2' 



IV.2-d Piecewise Linear Classification Program Listings 

RCLASS 

XIN 

LINEAR . 

WEIGHT 


. OOOOOOO'OOOOOO 
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CRCLASS 

r 


c 

c 

w 

c 

c 

c 

c 

c 

c 


4 

c 

c 

c 

w 

c 

c 

c 

G 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WRITTEN 

OOCUMENTEO 


PATTERM VECTOP Cw ASSIF .CAT . ON 


PATTERN VECTOR CLASSIFICATION 

SAM SHANMUGAM 
BY RJ aOS.EY 


:pt 


1972 

1973 


DESGRIPTION of PROSPAM. 

THIS SUSROUTIMF CLASSIFIES A 
OHE Of’mANY POSSiOLE CATEoOR.FS 
IN A SET OP TRAINING PATTERNS 


GIVEN SET OF PATTERN VECTORS INTO 
USING THE INFORMATION CONTAINED 
WHOSE CATEGORIES ARE KNOWN. 


ENTRY POINT. 


CA.L RCLASS (WORK.ISIZE) 


input arguments. _ USEE 3Y RCLASS 

ISIZE - SIZE OF THE SCRATCH ARRAY WOPK 
WORK MUST BE OiMEMSIONED IN THE 
program. WITH A DIMENSION GREATER 


THE ARRAY 

ca..:ng 
t-*an or 


EQUA. 

BY 


TO 


ISIZE. THE VA-UE OF ISIZE IS GiVEN 


tot7p=nQIM*(NTRAIN+10)+1000 

ISIZE 


WHERE N0=N0:M-1 


INPUT PARAMETER CAROS 
CARD 1 


SHOULD CONTAIN THE PROGRAM OPTION PARAMETERS NOPTl. 
N0PT2.N0PT3.N0PT4, IN F0RMAT(4ll>. 


IF (NOPTl. NE.O) 
IF (N0PT2.NE. 0) 
IF (N0PT3 .NE.U) 


IF(NOPT4.NE.O) 


CARD 2' 


SHOULD 

PORMAT 

NTOT 


NPART — 


the training patterns are ^^i^ted OUT 

THE TEST PATTERNS ARE PRINTED 
THE CLASSIFICATION OF ^AUH TRAiN.NG 
PATTERN IS LISTED. OTHERWiS-.ON Y THE 
CONTINGENCY TA3.E IS PRINTED OUT 

the classification of 

PATTERN IS listed. 
the CONTINGENCY TABLE IS PRINTED OUT. 

parameters NTOT.NPART.NDIM.NC.NPAIR xN 


number of pattern VECTORS IN THE DATA 


CONTAIN 
(5I5> . 

— TOTAL 

NPART OUT OF EVERY 10 PATTERN VECTORS IN 

Sata set will be used for TPAIN.No. thf 


RCLASS 01 
RvLASS 02 
RCLASSOi 
RGuASSnC 
RCLASS05 
RCLASSOB 
RCLASS07 
RCLASSOrt 

RCL ASS09 
RCt-ASSin 

rclassu 

Rw LA SSI 2 

RCL ASS 13 

RCLASS14 

rclassls 

RCL ASS IB 
RCLASS17 

rclassib , 

RCLASS 19 ^ 
RCLASS 20 
RCLASS 21 : 
RCLASS 2 ? ^ 
RCLASS 23 i 
RGLASS 24 i 
RClASSZ? 
RCLASG 2 B 
RCLASS 27 ^ 
RCLASS 2 C 
RCL ASS 2 R 

RCLASS3C 

RCLASS3J 
RCL ASSir 
RCLASS3I 
RCLASS3<- 
RCLASS3'' 
RCLASS3t 
RCL AS337 
RCLASS3f 
RCLASS!^ 
RC L-A GS^4 ' 
r:class4i 

LASS 4 : 
RCLASS4' 
THERCLASS4' 
RCL ASS4‘l- 


DR TESTING 


NOIM 

NC 

NPAIR 


remaining PATTERNS HILL BE USED 
THE CwASSIFIER r,r-o wc"Tn=> 

num^’ER of measurements per vector 
number of ground truth catf.gorifs_ ^ 

2* (MAXIMUM NUMBER OF TRAINING PATTERNS 


PLUS 2 


RuLASS4fi 
RCL ASS 4 . 
RCcASS4 
RCL ASS4 
RCLASS5- 


1^103>UOIBILITY OF THE 
PAGE IS POOR 
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PATTER;1 vector CuASSiFlCATlON 


c 

C 

c 

c 

c 

c 

V 

c 

c 

c 

c 

c 

c 

c 

c 

c 

w 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ANY ONE CATEGORY! 

*^**INPUT^CATA^VECT0RS ARE REAO IN BINARY FROM FILE COOc 01 
ACCOROTNG TO THE FOLLOWING REA0-- _ 

REAO(Ol) IGT«Ml»NliNFT»(FEAT(i) 


, I=1,NMEASI 


H-iERE 


IGT 

M1,N1,N-T 
FEAT (I ) 
NHEAS 


IN 


ARE 


IS THE GROUNO TRUTH CATEGORY 
ARE NOT USF.D (MAY 3E USEG AS 13 TAGS) 

IS THE feature VECTOR I-TH COMPONENT 
IS THE NUMBER OF COMPONENTS OR MEASUREMENTS 
EACH FEATURE VECT0R=N0IM-2 . tm 

THE DATA file SHOULD HAVE A TOTAL OF NTOT LOGxCA. REt^ORDS IN 
oTMftov FORM FflCri LOCr'A- REFORO MUST BE OF -ENGTH (N3iM+2) 
mows! SSw lis t!;e GROJNO truth CHTE50.TY «N0 5 THRU HOTHTJ 
T^f W«s5rfHE»T VAEUES. THE PATTERN »E'TORS_MUST BE SDRTEO BY 
'‘flTFrORY THE lATA SFT IS SORTED I NTO • TRA iN -NU AMO T^->T 
ACCORO.NG TO THE USER SPE..IFIEO RATIO IN NPART. J 

ARE copie: TO CDRE AND TEST PATTERNS ARE uOPxED TO OxS« ON FI.E 

CODE 02. 

NUMBER OF CATEGORIES IS 15. 

7 MAXIMUM VA UF OF NOIM IS 100. 

s! SCRATCH DISC FILE MUST BE ON 02 ANO INPUT DATA ON 01. 
4 . PATTERN VECTORS MUST BE SORTED BY CATEGORY. 

THEORY. USING a REGRESSION TYPE A'-^°^TTHM, THE PROGRAM 

OBTAINS A SET OF HYPERPLANES FOR SEPARATING THE 
TRAINING PATTERNS . THE SEPARATION ^OON^ FOR 
DIFFERENT CATEGORY PAIRS. A TOTAL OF NC»(NC-1)/2 
HYPEP PLANES ARE DETERMINED. TEST PATTERNS 
CLASSIFIED ON THE BASIS OF A MAJORITY VOTE ON THESE 

hyperplanes. 

statistical pattern RECOGNITION* • BY FURUNAuA, AlADEMxc PRESS, 
NEW YORK, 1972. | 

SUBPROGRAMS REQUIRED. 

DRIVER 

RCLASS . ■ 

XIN ■ ‘ :/!■ 

linear 
weight 


MINV 


-- A FORTRAN CALLABLE ROUTINE ERpH IBM SSP 


"“!»'’oWEP 10 PROCESS A 0«I« SET REOUIRING A SCRATCH ARRAJ OF 


RCLASSBt 

RCLASS5? 

RCLASS5T 

RCLASS5'* 

RCLASS55 

RCLASS56 

RCLASS57 

RCLASS 5'= 

RCLASS5'? 

RCLASSGP 

RCLASS61 

RCLASS52 

RCLASS 6 3 

RClASSBA 

RGLASS6F 

RCLASS 6 6 
RCL ASSG7 
RCLASSGe 
RCLASSBp 
RCLASS 7C 
RCLASS 71 
RCLASS72 
RCLASS73 
RCuASS74 
RCLASS7'^ 
RGLASS7E 
RCLASS77 
RCLASS7F 

rclass7<: 

RCLASS 3 r 
RCLASS31 
RCLASsar 
RCLASS a 7 
RCLASSSf- 
RCLASS a'-' 
RCLASS at 
RCLASS3T 
RCLASS8J 
RCLASSaS 
RCLASS9C 
RCLASS 91 
RCLASS9: 

RC lasso: 

RCLASS9' 

RCLASSgf 

RCLASS9? 

RCLASS9 

RCLASS 9 

RCLASS9' 

RCLASSO* 


^ . OF THE 
page is pooh 
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PATTERN VECTOR CwASSIFICAT ON 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


c 

c 

c 

c 

c 


c 

c 


S' ZE 1500Cf THE DRIVER SFT U° IS AS FOlLOWS 

CORIVE • sample driver FOP CLASSIFICATION PSM 

DIMENSION WORK(15000) 

ISIZE = 15000 

CALL RCLASS(WOR!<tISIZE) 

STOP 

END 

SUBROUTINE RCL ASS (WORK? *S-ZE) 

1 ntot.npart 

read IN parameter cards and data SET 


CALL X*iN(WORK(l) .D0(1)> 


11=1 

I2=il+NTRAIN^N0IM 

I3=i2+N0IM 

14=13 +NH*ND 

I5 = I4+NPAIR*NO'*-1500 


locate the beginn.nc address op 
VARIOUS arrays FOR THE LINEAR SJ9PGM 


82 


53 


CHECK THAT TH'" DIMENSION 0 - THE WORK 
ARRAY IS ADEQUATE 

IF(I5.lE. ISIZE) GO TO 53 

^OpiAnlSlUx.-PROB.EM W..L NOT FIT THE CORE ALLOTED FOR THIS PRO 

1AM.*) 

RETURN 

continue now go CO the classification 

CALL lINEAR(WORK(I1).WORK(I2),WORK(I3),WORK(I4),WORK«I5)) 

RETURN 

END 


RCLASSni 

RCLASSOE 

rcl A ssno 
r:lasso 4 
RCLASS05 
RCuASSG5 
RCLASS07 
RCLASS'^ft 

rclassq° 

rclassio 

RCLASSll 

RCLASS12 

RCLASS13 

RCLASS14 

RC LASS 15 

RCLASSlf^ 

RC la SSI 7 

RCLASSL<f^ 

RGL ASSl‘1 

RGLASS2/? 

RGLASS21 

RCLASS23U 

RCL ASS2? 

RCLAS524 

RC.LASS2S 

RCLASS2& 
RCLASS27 
RCLASSEf 
RCLASS29 
RCL ASS3fi) 
RCLASS3< 
RCLASS3S. 
RC LASS 33 
RCLASSCiji 
RCLASS35 
RCLASSS^, 
RGLASS37 
RC la CSSS' 
RCLASS3*? 


"I." 






OZ- 09 - 7 <* 


20 .409 


REA3 IN the OATA 


READ IN THE DATA 

WRITTEN 9Y SAH SHANHUGAM 
DOCUHENTEO BY RJ BOSLEY 


SEPT 1972 
DEC 19T3 


IN the two PARAMETER CAROS AN5 THEN 
REASs iN ^pfSlTrsE?. COPYING THE TEST PATTERNS TO DISC FILE 02. 

ENTRY POINT. 

CALL XIN(WORK,U) 


INPUT A'^GUHENTS, 

U ’ SCRATCH ARRAY 

INTERNAL TRAINING PATTERN VECTORS 

j-fpox NO OF TEST PATTEf^N VECTORS 

2 + NO, of MEAS PER FEATURE VECTOR 

Nol”oF ground truth CATEGORIES 
twice max NO. OF TRAINING PATTERNS 
^jH NO. OF HYPERPLANES 

wnPTl-4 PROGRAM OPTIONS, SEE RCLASS 

^ NO. OF VECTORS OUT OF 10 TO SKIP 

TRAINING 

NTTMFs • NO. OF BLOCKS OF 10 PATTERN VECTO.RS 

IN INPUT OATA FILE 

X, fft no. OF VECTORS LEFT AFTER READING ALL 

blocks OF 10 VECTORS 

SUBROUTINE XTN(WORK.U) 

?Sn'S?rmn'JUstInSim,nd.nc,npair»nh^ . 

1 NTOT.NPART PARAMETER CARD 1. 

R£AD(5,100) NOPT1,NOPT2,NOPT3,NOPT4 

RtAJij.iuui IN read IN PARAMETER CARO 2. 



R£A 0 ( 5 , 100 ) 

c 

READ (Bt 10 H 

iOO 

FORMAT < 41 1 ) 

101 

C 

c 

FORMAT ( 51 B) 


REMIND 01 
I9EGIN=1 


READ THRU THE INPUT FILE TWO TIMES -- 
ONCE TO GET THE TRAINING PATTERNS AND 
ONCE TO GET THE TEST PATTERNS 

INITIALIZE INTERNAL PARAMETERS 


X I N 0 0 0 0 1 
XIN000Q2 
XINOOOn.l 
XINOOUO'f 
XINOOOOB 
XINDOOOfj 
XlNHOOn? 

, X I N 0 0 a 0 0 

XINQOOnO 
xiNonoio 
XINOOO 11 
XINOOQ 12 
XINOOO 13 
XiNOOOiA 
xiNOUOlB 
X I N 0 0 0 1 6 
XIN00017 
XINOOO 10 
XINOOOIR 
XIN0002C 
XINOOO 21 : 
XIN00022 
XINOOO 23 
XINC002A 
XI NO 0 0 20 
XINOP02f 
XIN00027 
XIN0UO2f 
XIN0002R 
. XIN0003D 
XINOOO 31 
XIN00Q32 
XIN0D033 
XlN0003ii/ 
XINOOO 35 
XINOOQ3t> 
XIN00037 
■ XIN00Q3^ 
XIN 000 3^ 
XIN00040 
XIN0Q04I 
XINOOQ 4il^ 
XIN 000 43 
XIN0004^ 
- Xlt|0004i5 
D XINOOO Ati' 
XI^^000 47 
XINa004f 
XIN0004f 
XIN0005P 






o o o o o oo 


02-09-7«* 


READ IN THE DATA 


?D.i4n9 


C 

C 


15 


16 


C 

C 


NTRATNsn 

ND0 = Nr>IMt2 

NTIMES=NTOT/10 


nskip=io-np*RT 


OUT OF EACH OF THE NTIMES 3LOCK9 OF 
TEN INPUT PATTERNS PICK THE FIRST 
NPART PATTERNS AS TRAINING PATTERNS 


201 


WRITE HFAGING 

IF (NOPTl .ME.O ) WRITF(6,201» 
F08««TUHl.iOX,-TR.IMl-.G P«T,ERNSM 


c 

c 

c 

c 

c 

c 


102 

10 

20 

C 


00 20 NN=1,NTIHES 
IF (NSKIP.EO.O) GO TO 16 

00 15 JJ=1,NS<IP 

READ(l) (U(K) ,K=liNDO) 

CONTINUE 

00 10 JJ=liNPART 

NTRAIN=NTRAIN+1 

ISEGI N= (NT^AIN-l) *NOIM+l 

IENO=NTRAIN*NOIM 

IBl=I9EGIN+l 

IB2=IE1+1 


PATTERN VECTORS 

SKIP OVER T.HE TEST VECTORS 
read PAST THIS VECTOR 

READ NPART TRAINING PATTERN VECTORS 
COUNT THE NO. OF TRAINING -VECTORS 
INDEX This VECTOR INTO WORK 

SET THE FIRST COMPONENT TO 1.0 


WORK(IB1)=1.0 training PATTERN VECTORS 

RE«D<1) WO»K(IDEGIH..NH1,NM2.NMJ.(«0RK,k,.K=IJR^ 

IF ( NOPTl. NE.O» WRITE (6, 10 2) NTRAIN. WORK (I3EGIN) , Ntll , NM2 , ( WORK ( K) 
lK=I3ltIEND) 

FOPrAT(lX,I-1.3X,6(F10.4) » 

CONTINUE 
CONTINUE 

ILEFT=NTOT-m*NT IMES 
IF(ILEFT.EQ.O) GO TO 26 
90 25 JJ=1*ILFFT 


ntrain=ntrain+i 

IBEGINs (NTRAIN-1 > •NDIM4-1 

IENO=NTRAIN*NDIM 

IBl=IBEGINtl 


READ IN THE LEFTOVER PATTERNS 

INCREMENT TRAINING VECTOR COUNT 
INDEX THE VECTOR INTO WORK 


XINOOgGl 

XIN00052 

XINQQO';.'? 

XIN000G4 

XIN00055 

xuinooGE 
XIN0005/ 
XiNOOOG’i 
XIN00Q59 
XIN 00061) 
XIN00061 
XI N 00062 
X1N00063 
XIN0006'. 
XIN00065 
XIN00066 
XIM00067 
XIN000 6P, 
XI NO 0 0 69 
XIN00070 
XIN00071 
XIN00072 
XIN0QQ73 
XIN00074 
XINnOO 7^' 
XIN00076 
XIN00077 
XIN0007S 
XIN00079 
XIN00080 
XIN00081 
XINOOO 32 
XIN 000 33 
XINODOat 
XIN00035 
, XINQQO 36 
XIN00037 
XIN00033 
XINOOO 8° 
X i N 0 0 0 9 D 
xlNOOogi 
XIN0Q09I 
X1N00093 
X1N00D9A 
XIN00096 
XIN0009E 
XIN00097 
XIN0QQ96 
XINOOO 9" 
XINOOIOO 
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READ IN THE DATA 


C 

c 


iq2=inifl 

MOR1<(IOI>=1.0 ^ training PATTEpN 

REAO(I) W0RK(IBEGIN),NN1,NN2,NM3,(H0RK(K^ 

IF(NOPTl.NF.O) WRITE(6.1021 NTR AI N , WORK (I GEGIN) , NMl . NM2 . I W0RK( K) . 
1K=I'31 »IENS> 


25 

26 


CONTINUE 
CONTI NUE 
REWIND 01 

rewind 02 


COPY TEST PATTERNS TO DISC FILE 02 
WRITE HEADING 


103 


IF (NOPTR.NE. 0) W’lTEtbt 103J 
FORMATdHl.lOX, * TEST PATTERNS'! 
NTEST=0 


C 

c 

c 

c 

c 


IF(NPART.EO.n) GO TO 90 
DO ‘♦S NN = 1»NTINES 
DO 43 JJ=1,NSKIP 

NTEST=MTEST+1 

REAO(l) (U(KK> .KK=ltNC0) 

U(4)=1.0 


SKIP IF THERE ARE NO TEST PATTERNS 

COUNT THE NO. OF TEST VECTORS 

read input DATA FILE THE SECOND TIME 

SET COMPONENT FOUR TO 1.0 


43 


44 

45 


99 


702 


WRITE OUT THE TEST PATTERNS 

WPITE(2), (U(KK).K<=l»NOO) TRAINING VECTORS 

DO 44 JJ=1.NPART 
RFAD(l) (U(KK) ,<K=1»NDD) 

CONTINUE 
END FILE 02 
rewind 0? 

CONTINUE 

rewind 01 WRITE OUT A PROGRESS NOTE 

JoRlAn^xt-DArA HAS BEEN COPJEO^ON^IO HYPEN’EANES 

NH = NC» (NC + D/2 

ND=N0IM-1 

RETURN 

END 


XINOOlO I 
XIN00102 
XINOQ103 
X1N00104 
XINOOi 05 
XI N 00106 

xiNooior 

XINQOlOa 
XIN C0109 
xiNOoiin 
XiNOOlll 
XIN00112 
XIN00113 
XIN00114 
XINOOll 5 
XIN 00116 
XIN00117 
XINOOllli 
XIN00119 
XIN00120 
XIN00121 
XINQ0122 
XIN00123 
XIN00124 
XIN.00125 
XIN00126 
XIN00127 
XIN00128 
XIN00120 
XIN 00 130 
XIN00131 
XIN00132 
XIN0Q133 
XIN00134 
XiNO0l35 
.tVIN 0 0136 
X1N00137 
XIN0Q133 
XINQ013R 
XIN00140 
xtN00141 
XIN00142 
XIN 00 143 
XIN00144 
xiN0Q145 
XINOO 146 
XIN00147 
XIN 00 148 




237 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


n2-0‘)-74 


2 0.M5 


LINEAil 0IS3RIHINAUI FUNCTION 


CLINFAR 

C 


LINEAR OISCRIMiNANT FUNCTION 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


WPITTFN TV 
OOCUMENTFO 


SAM ShANMUGAM 
av RJ 30SLET 


DISCRIMINATION FUNCTIONS, COMBINES IHFSc TO 
linear DlSCPiMINANT FUNCTION FOR EACH 

l5f TPAiilNG AND TEST PATTERNS, THIS ROUTINE ALSO OUTPUTS THE 
RESULTS. 

^^^THE* ALGORITHM FOR DETERMINING THE WEIGHT 

rsFiWSEHr;— 

THE^MATPJCES^ niMENsi^ ONE DIMENSIONAL IN PGM) HAVE THE 

^1--'^XTRAi7iS an NOIM X NTRAIN MATRIX. EACH COLUMN 
XTRAIN REPRESENTS ONE TRAINING PATTERN. 

?HE ??RST ENTRY IN EACH COLUMN IS THE CATEGORV. NAME 
THE SECOND ENTRY IS THE CONSTANT 1. THE .tNTRiES 3 
TO WilTM A^E THE VALUES OF THE COilPONEMS OF THE 
"i“eRN IlcTOR XIji. XTP/lIN H«S NIRUN C0LU-,NS AW 
'no-*-! = NDIM HOWS. 

yj£ST XTEST HAS THE SAME CONFIGURATION ' AS XTRAIN. 


^♦•PATTERNS 

1 


. data MATRIX U IS USED FOR CALCULATING THE 
between the CATEGORIES I AND J. U HA^ ND 

NTR(I)+NTR(J) COLUMNS, AS FOLLOWS 

from CATEGORY I*»*******PATTERNS FROM CATEGORY 


> • , • 


-X 




*•*»»* u 


HAS NO ROWS AND NTRCDHNTRtJ) COLUMNS 


ENTRY 


POINT. 

CALL 


LI HEART XTRAIN t XTEST, W,U, DUMMY) 


input arguments. 

XTRAIN 

ytest 

w 


MATRIX 

MATRIX 

WEIGHT 


CONTAINING 

CONTAINING 

VECTORS 


LINEAROT 
LI NEAR 0? 
SEPT 1972 LINEARH3 

DEC 1973 LINEAR0'< 

LINEAROS 
LlNEAROfi 
LINEARQ7 

linearhs 

LINFARQO 
LINEARIQ 

linearii 

LINEAR12 
LINEARI.3 
LINEAR 14 
LI NEAR 15 
Li NEAR lb 
LINEAR! 7 
LINEAR15 
LINEARIO 

lInearzq 
LINEAR21 
LI NEAP 22 
LINEAR23 
LINEAR2A 

linear^? 

LI HEAR 2b 
LINEAR27 
LINEAR23 
LINEAR2S 
LINFAR3C 
LINEAR31 
LINEARs^2 
LINEAR33 
.*•* LINEAR34 
-1 LINEAP3L 
. LINEAR36 
, LINEAR37 
-X LINEAR3P 
. LINEAR3E 
.... . LINEAR4C 

♦♦••••»************LINFAR4) 

LINEAR4' 
LINFAR47 
LINEAR4( 
'LINEAR41 
LlNEAR4f 
LINEAR4V 
LIMEAR4' 
LINEAR4' 
UlNFARSi 


BOUNDARY 
ROWS AND 


-X 


TRAINING PATTERNS 
test PATTERNS 


238 


O o o O o O o o oooooooooooooooooo 


02-09-74 20.4ir> 


LIMEA'>« OIGCRIHINANT FUNCTION 


dummy 

INTERNAL PARAMETERS. 
NC 

NAME 
NTR <I » 

NIJ 

NTRAIN,NTFST 

NCOLU,NRO'WU 

NO 

M 

MT 

INDEX 


NPT 

ICLASS 

KOUNT 

KMAX 

lEPROR 


MATRIX USED FDR CALCULATING THE' 

boundary between the UATEGORIEo I 

AND J. 

SCRATCH ARRAY 


NUMBER OF CATEGORIES 
ARRAY CONTAINING CATEGORY NAM'^S 
number OF TRAINING PATTERNS IN CAT I 
total NO OF TRAINING VECTORS IN 
CATEGORIES I AND J 
NUMBER OF TPAININGt TEST PATTERNS 
COL .ROW INDEX FOR MATRIX U 
NDIM-1. NO. OF COMP IN WEIGHT VECTOR 
array CONTAINING WEIGHT VECTORS 
array CONTAINING ONE WEIGHT VECTOR 
CLASSIFICATION LOOP INDEX, =1 FOR 
TRAINING SET, =2 FOR TEST SET 
BEING CLASSIFIED 
NO. OF PATTERNS TO uLASSIFY 
CAT FOR WHICH VOTING IS MAXIMUM 
VOTE TALLY 

MAXIMUM VOTE, MAX KOUNT 
CONTINGENCY TABLE 


SUBROUTINE LIN EA R (X TRAI N, XTEST ,W,U, DUMMY) 


OIMFNSION XTRAIN(l),XTESr{l),W<l),U(l).OUMMY(l) 

DIMENSION lERRHR (15, 151 ,NTR (IS),NAME (15) 

DIMENSION L ( 10 0) »M (130 ) 

?oSN”'?R«J;“N"TEST.»OIH.»D.KO,HP«l?.N«.NOPrl.»<>'’t2.N01>T3,NOPrk. 

1 NTOT,NPART 

REAL NAME WRITE OUT INPUT PARAMETERS 

1401 '?'o^MrTa^"lVl0X,- INPUT DATA SUPPLIED BY YOU*) 

W°ITE (6, 140 2 ) MTO T , NP AR T, ND IM - , n v t t •mir nf 10 PA 

1402 ?ORMAT(//iaX, -TOTAL NUMBER OF P^TT ERNS = % 14/ 1 0 X , IS , OUT OF 10 

lERNS WERE USED IN TRAINING* /iaX.JNDIH=« .13 ) ^^ TRAINING ARRAYS 
DO 1 J=1,NC 

i NTR(J)=0 yp OP PI^3T CATEGORY 

J=l 

NAHE(l)-XTRAIN(t) ' all THE TRAINING PATTERNS 

DO 3 I=l,NTRAIM 


UNEAROl 

lINFAR‘>? 

LINEAR5T 

LINFARBL 

LINEAR55 

LINFA955 

LINFAR57 

LINEAR5B 

LINEAR50 

LINFARnO 

LINFAR61 

LINEAR6? 

LINEAR63 

LINEAP64 

LINFAR05 

LINEARb*^ 

LINEAR67 

LINEARnB 

LINEAR59 

LINEAR7C 

LIN EAR 71 

LINEAR/? 

LINEAR73 

LINEA.R71 

LINEAR/*’ 

LINEAR/? 

linear/: 

LINEAR/? 

LINEAR/*: 

LINEAR«r 

LINEARAI 

linear*!: 

LINEAR*)’ 

linear*)' 

LINEARfl*^ 

LINEARS* 

linear*)! 

■ LINFAR3 
LINEAR*) 
LINEARO 
TTLINEARO' 

linfaro 

LINEARO 

linear*)'- 

LINEARO 

LINEAR*) 

LINEARO 

LINEARO 

LINEARO 

LINEARO 
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?0 .415 


LIHFA>< OlSCRIMINANT FUNCTION 


C 

C 

C 

c 


2 

3 


C 

c 

c 


1403 


c 

c 


1404 


1411 


C 

C 

C 

C 

C 


C 

C 


Il=(I-l»*NOIM+l CATEGORY NAME 

IF (NAME ( J) .EQ.Xl RAINdl ) » GO TO 2 

OR, SET UP A MEW CATEGORY 

GET THE NEW NAME 

NAME(J) -yTPAlN(j.t) COUNT THE NUM3ER IN THIS CATEGORY 

NTP(J)=NTP( J) +l 

CONTINUE WRITE OUT NO. OF TRAINING AND TEST 

PATTERNS AND THE NO. OF CATEGORIES 
FOUND 

WRITE(6, 1403) NT R AI N , MTEST, J 

FORMAT (10V» ‘NUM3ER OF TRAINING PATTERNS USE 0= * , I 4/ 1 0 X , * NU MO ER OF 
ITP’ST PATTERNS U5F.0= ' , 14 /lOX , 'NUMS ER OF GROUND TRUTH LAOEUS FOUNO- 

WRITE OUT THE NO. OF CATS SPECIFIED 
GY THE USER 

WRITE(6,1404) NC tt, 

FORMAT(/10X, •MUMPER OF GROUND TRUTH LABELS SPEwIFIED - , 13 ) 

WRITE{6,1411) 

FORMAT <1H1,5X, 'SUMMARY OF WEIGHT VECTORS*///) 

FIND THE HYPERPLANES WHICH SEPARATE 
CATEGORIES I AND J, WHERE I GOES FROM 
1 TO NC and j GOES FROM I+l TO NC. 


IWCOL=0 

DO 10 I=l,NC 

IPLUS1=I+1 

DO 10 J=IPLUS1,NC 

IF(J.GT.NC) GO TO 86S 

IWCOL=IWCOL+l 

ISUM=0 

00 9 i<=l,I 

I.5UM = ISUM+NTP,(K) 


C 

C 


CHECK FOR final LOOP 
INCREMENT COLUMN INDEX 

SET UP MATRIX U FOR CAT I AND J 


FIND THE COL IN XTRAIN WHERE THE 
PATTERNS THAT 3ELONG TO I AND J BEGIN 


IWBEG=ISUM-NTR (1 ) 

ISUM=q 

DO A K=1,J 

ISUM = 1SUM4-NTP(K) 

JW3EG=ISUM-NTR (J) 


C 

C 

C 


GET ENTRIES FROM XTRAIN AND PUT INTO 

the matrix U 


LINFARQl 

LINEAR02 

LINFAR03 

LINEAR04 

LINEARQ5 

LINEAROO 

LINEAR07 

LIMEA=>fr<) 

LINEAROD 

lineario 

LI NEAR 11 
LIMEAR12 
LINEARI ? 
LINEAR14 
lIMEA-315 
•LINEAR16 
LINEAR17 
LINEARIS 
LINEAR19 
LINEAR2Q 
LINEAR21 
LI NEAR 2 2 
LI NEAR 2 3 
LINEAR24 
LIMEAR25 
LINEAR2E - 
LINEAR27 
LINEAR28 
LIMEAR29 
LINEAR30 
LIllEARil 
LINEAR32 
LIMEAR33 
LINEAR34 
LINEAR35 
LINEAR3B 
LINEAR37 
LINEAR3i3 
LINEAR39 
LINEAR40 
LINEA.R41 
LIMEAR42 
LINEAR43 
LINEAR44 
LINEAR45 
LINEAR4S 
LINEAR47 
LINEAR43 
LINEAR49 
LINEAR50 
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LINEAR 019CRIHIN ANT FUNCTION 


C 

c 

c 

c 


1« 

IS 


c 

c 

c 


40 


NI=HTRm 
NJ=NTR(JJ 
NIJ=NTR(I ) ♦NTRC J) 

DO 7 NCOLU=ltNl 

NCnLXT = NCOLU-*-IW9FG 

CO 6 NROHlJ = lfNO 

N=OWX=N<’OWU*l 

NRCU=(NCOLU-i) »NO+N»OWU 
NRCX=(NCOLXT-t) *NOIN+NROWX 

U(NRCU»=XTRAIN(NRCX) 

CONTINUE 


00 19 NN=1»NJ 

NCOLU=NI*NN 
NCOLXT=JWSEG+NN 
00 Id NR0WU=1.N0 

NR0WX=NR0WU+1 

NRCU= (NCOLU-1) *NO>NROWU 

NRCX=(NCOLXT-l) *NOIM+NROWX 


U(NRCU ) = (-!. 0> »X TRAIN (NRCX) 
CONTINUE 


GO THRU EACH TRAINING PATTERN IN CAT 
INDEX COL FOR XTRAIN 
GO THRU EACH CONP IN VECTOR 
SET UP INDEXS 

TRANSFER PATTERN TO U FROM XTRAIN 


DO THE SAME FOR CATEGORT J 
GO THRU EACH PATTERN IN CAT J 

SET UP COL INDEX 


SET UP ROM INDEX 


TRANSFER THE VECTOR IN XTRAIN TO U 
AND CHANGE THE SIGN 


CALL THE REGRESSION ROUTINE 

CALL WEIGHT (U,OUMMY,WT.NO»NIJ) ^ 

get weight vector for cats I AND J 


DO 40 IROWW=liNO 
IRCM= (IWCOL-1) •ND + IROWW 

h(:rcw»=wt(ipowm) 


INDEX THE VECTOR INTO W ARRAY 
WRITE OUT THE WEIGHT VECTOR 


WPITE(6,10n) It J 
IRCW1 = (IWCOL-1)*N04-1 
IRCW2=IWCOL*NO 

UPTtF(6i 101) (W(IRCWl tl RCW = IRCW 1 * I PC W 2 ) . 

100 F0RMAT(2X,44HTHE WEIGHT VECTOR FOR SEPARATING CATEGORIES t 13, 3HA 

,13) 

101 FORMAT niX,10F12. 9) ) 

g PUNCH OUT THE WEIGHT VECTOR 

WPlTE(43, 100 ) I,J 

WRITE<43,1791) (WdPCW) ,XRCW-IRCW1,IRCW2) 


LINEAR91 
LINEAR92 
LINEAR53 
LINFAR94 
ILINEAR59 
LINFAR56 
LIMEAR57 
LIMEAR^-^ 
LINEAR99 
LINEAR90 
LINFAR91 
LINEAR92 
LINEAR6 -I 
LINEAR64 
linear 69 
LINEAR66 
LINEAR67 
LINEAR63 . 
LINFAR59 
LINEAR7Q 
LINEAR71 
LINEAR 72 
LINEAR73 
LINEAR74 
linear 75 
LINEAR76 : 
LINEAR77 

linear?? 

LINEAR79 
LINEARdO 
LINEAR31 
LINEAR82 
LINEAR83 
LINEAR84 
LINEAP85 
. LINEAR 86 
LINEAR87 
LINEAR 8 8 
LINEAR89 
LINEAR90 
LINEAR91 
LINEAR92 
LINEAR9T 
LINEAR94 
NDLIHEAR95 
LINEAR96 
LINEAR97 
LINEAR98 
LINEAR99 
LINEAROQ 
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.4 


o?-oq-7‘* 


linear 3ISCR.iMlNANT FUNCTION 


FORMAT< (1»X,6F12.5)> 

CONTINUF 

CONTINUE 

3EGIN CLASSIFICATION 

GO THRU FIRST FOR TRAINING PATTERNS 
THEN FOR TEST PATTERNS 

DO or iNDFx.i.r 

11^ (( INDEX .EO.U .ANO.(NO“T3.NE.OII»‘UTE(6,i40S) 

TF ((TN.-rX.EQ.2) .AND.(NOPT4.NE.O)) VIR j. TE (E » 14 99 » 

rm«T^;”;;r-:L.ss;rio.noN Of ' 

, tadle foe au 

CATEGORIES 

DO 78 IMN=1,15 
30 78 JHN=l,19 

IERROR(IMN,JMN)=0 •'■ „i,irE HEADING ' 

TF ( (TNO-^X .EQ.l) .AN3. (NOPTl.NE.On W.RI TE <6 , 15 0 0 | 

IF ( (INDEX .EQ.2) .AND. ( N0PT4 . NE . 0 ) ) ASSIGNED CAT* ,9X, ' 

] F0RMAT(////2X, -PATTERN NO. * ,5X, -TRUE CAT* ,6X ,* ASSIGNED CAT , 9X , 

ITE *T nc- PATTFPM<I TO CLASSIFY D 


linearoi 

LINEAR02 

LINEARO.T 

LINFARG4 

LINEAR05 

LINEAR06 

linfarh? 

LINEAROa 

linearor 
linear 10 

LINEARll 

LINEAR12 

LiNEARli 

LIMFAR14 

LINEARIS 

LINEAR15 

linear 17 

LIN EAR 18 

LINEAR19 

LINEAR20 

LINEAR21 

LINEAR22 

LINEAR23 


IF (INDEX. EQ.l) NPT=NTPAIN 
IF(IN0EX.EQ.2) NPT=NTFST 


IF ( (I^OEX .EQ.2) . 
DO 66 III=1»NPT 


-aesioned cat- . ox , • »ou;;h.«a 

SFT NO. OF PATTERNS TO CLASSIFY ^ 

LINC.AR27 

LINEAR23 

return IF NO TEST SET ■ 

nr-TilOM LINEARoJ 


RETURN IF NO 
AMD. (NTEST.EO.O) ) RETURN 


GO THr 5 EACH PATTERN TO 9E CLASSIFIED LINEAR31 

GO THRU each COMPONENT AND PULL OUT 

the TRAINING VECTORS FROM CORE ^^MFflp•^q 


00 55 N0UM=1»N0 
IXROW=NOUM+'t 

1XIII=(III-1)*NOIM+IXROW 

|IF ( INDEX . EQ. 1 ) U (NOUM ) =XIRAIN ( IX III ) 

CONTINUE OTHERWISE, read TEST VECTORS FROM 02 

IFdNOEX.EQ.?) REAa(2) DUMMY I, DUMMY 2 . CUMM Y 3 , ( U ( NDUM ) , N3UM = l , NJ ) 

KMAX=-20 GO THRU EACH CAT FOR VOTING 

00 65 IIC=l,NC 
KOUNTsO 

LOCATE THE hYPERPLANE THAT SEPARATES 
CATS IIC AND JJC. THE SIGN OF THE, 
HEIGHT vectors IS CHANGED DEPENDING 
UPON WHETHER OR NO T J JC . GT . I IC 


LI NEAR 33 

LINEAR34 

LINEAR35 

LINEAR36 

LINEAR37 

LINEA 038 

LIN ear 3° 

LINEARAC 

LINEAR41 

LINEAR42 

LI near 4 3 

LINEAR44 

LINFAR4L 

LlNEARAf- 

LINEAR47 

LINEAR4'’ 

LINEAR4' 

LiNEARSr 


, . -.JL K« 


LINFAR 0I'^C'?IM1NA>'»T function 


DO 64 JJC=l»NC 
IF(JJC.EQ.IIC) GO TO 63 
IF<JJC.GT.IIC1 GO TO 50 
IF (JJC.LT .IIC» GO TO 41 
CONTINUE 

SIGN=l.O 

ISUM=n 

I5=IIC-1 

IFIIS.EO.O) GO TO 53 
00 51 KS=1,IS 
ITERM=NC-KS 
ISUM=iSUM+ITERM 
CONTINUE 

NCOLW = ISUN*-JJC-IIC 

GO TO 45 
CONTINUE 

ISUH=0 

SIGN=-1.0 

IS=JJC-1 

IF (IS.EQ.tn GO TO 43 
DO 42 «S=1,IS 
ITERM=NC-KS 
I5UM = ISU!i + ITERM 
CONTINUE 

NCOLW=ISUMfIIC-JJC 

CONTINUE 


SET PARAMETERS 


THEN GO TO. VOTE CALCULATIONS 

\\ ' 

sIt parameters for sign change 


COMPUTE XTRAIN**W{NCOLW) 


SUM=0.Q 

00 52 IW90W=l»NO 
IXR0W=I'WR0W*-1 

IWRCW = (NC0LW-1 > *ND«-IWROVI 

SUM=SUM+ (U (I WROW) »» (W (IWRCWH * (SIGN) 

CONTINUE 

IVOTE=0 


IF(SUM.GT.O.O) IV0TE=1 

IF (SUM.lt. Q.U) IV0TE=-1 
CONTINUE 

IF (JJC.EQ.IIC) IVOTE=0 
KOUNT=KOUNr+IVOTE 


VOTE POSITIVE IF SUM .GT. ZERO 
ELSE VOTE NEGATIVE 

IF SAME CATEGORYf OONT VOTE 
tally the COUNT 


IF (KOUNT.GT.KMAX) • ICLASS=HC 


OPTERMINE THE CAT FOR WHICH VOTE IS 
MAXIMUM 


o o o 
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LINFA-^ OISC'JiMINftNT FUNOTION 


65 


1501 

1502 


71 


72 

66 

C 


721 

722 

723 
C 

74 

724 
C 

725 

726 

6Jj 


IF »<ouMr . gt'.kmax) kmax=><ount 

CONUMDE 


RESET MAX COUNT 


GET THE results AND OUTPUT THEM 


LINEAPO 

LlNCARO 

linearu 

LINEARO 

linearq- 

LINEARO- 

LINEARO 

LINEARO 

LINEARO 


iiii=(iTi-i) »NniM+i 

IF(INOEX.FO.I) tcat=xtra:n<iiii) 

IF.IN0E«-ro.J. .C.I = DUMM»1 VECTOR LINFA;*! 

IF(<INuEX.Ea.l) .nNa.(NOPT3.NF.O».ANJ. (KMAX.EO.O)) WRITE(6,150l>IIiLINFARt 

iT7*‘ftT L.XNC.m'nI.- 

IF ( ( INDEX .EQ.2 ) . AND. ( NOPT4. NE. 0) . ANO . ( KMAX.EQ.O) ) WRITE ( 6 » 150 2 HIILiN FA R1 

I T r* A T U .L N C.A "V 1 

IF ( ( I NDEX .EQ . 1 ) . A NO. { NOPT3 .,ME. 0 ) . AND . ( KMAX.GT . 0 ) ) WRITE (6» 1502 ) ^ 

'^IF*(*INDEX .Ea^2 » . AMO. (N0PT4 . ME. 0) . ANO. (KMAX .GT.O) ) WRITE (6 f 15 02 II I IL IN EAR 1 


[,TCAT,NAME(ICLASS) .KMAX 

FORM AT (6X» 13 1 11 Xt A5 I to X. 14HNOT CLASSIFIED! 

PORMAT (6X,I3,ilXfA5flOX» A5 »12X»I3 ) 

DO 71 ITGAT=1,NC 

IF (TCAT . EQ. NAME(ITCAT) I JTCAT=ITCAT 
CONTINUE 

ITCAT-JTCAT UPDATE THE CONTINGENCY TABLE 

IF (KM AX. GT . 0 ) IERROR ( IT CAT. ICLASS ) =IEPROR ( ITCA T » ICLASS)>1 

continue • . 

WRITE OUT THE HEADING 

IF(INOEX.EQ.l) WRITE(6,72l) 

IF(IN0EX.EQ.2I WRITE(6i722) 

F0RMAT(1H1,15X, ‘CONTINGENCY TABLE FOR TRAINING PATTERNS*! 
P0RMAT(1H1,15X,‘ CONTINGENCY TABLE FOR TEST PATTERNS*! 

WRITE (6.7P3) 

FORMA T(4X,* TRUE’ /?X, ‘CATEGORY*! 

l-OKMAM-iA, ^ WRITE OUT THE CONTINGENCY TABLE 

DO 74 ITCAT = 1,NC ^ ^ ^ 

WRITE (6.7^4! NAME (ITCAT) . (lERRORdTCAT tICLS) .ICLS = l»NCI 
FORMAT {// 3X.A6, 15 (4X, 13! ! 

LIST THE CATEGORIES 
WRITE (f,,7?5> ( NA MP ( ICLA ) . ICL A = 1 . NO 

FORMA T(// IIX. 15 ( IX. A5 ) ! 

MRITE(6.726! 

FORMAT C/1FX»* ASSI5NED CATEGORY*! 

CONTINUE 

RETURN , C 

end 


LINEARl 
LINEARl 
LINEAR2 
LINEAR 2 
LINEAR2 
LINEAR2 
LINFAR2 
LIN EAR 2 
LINEAR2 
LINEAR2 
LINEAR2 
LINEAR2 
LINEAR3 
LINEAR3 
LINEAR3 
LINEAR3 
LINEAR3 
LINEAR3 
LINEAR3 
.LINEAR3 
LINEAR3 
linear 3 
LINEAR4 
LINEAR4 
LINEAR4 
LINEAR4 
, LI NEA R 4- 
LINFAR4 
LINEAR4- 
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20.434 


GET the weight VECTOR 


c weight 

c 


GET THE weight VECTOR 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C’ 

c 

c 

-c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C! 

0 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


THE 


WRITTEN 3Y GAM SHANMUGAM 
OOCUMENTEO QY RJ BOSLEY 

”'"^GIVEN^rMATRIx”u'’cDNTAINlNG PATTERNS OF CATEGORY I AND J. 

T^IS ROUTINE >=^1^03 A HYPER^LAME TO SEPARATE THESE PATTERNS. 

WEIGHT V'^CTOR JFFIMING HE HYPERPLANE IS GIVEN BY 
wT = ((uu* )**-n iu*T> 

WHERE WT Is ThP WEIGHT VECTOR 

,• IS A COLUMN VECTOR WHOSE COMPONENTS ARE +1 S 

fjn IS THE LENGTH OF THE PATTERN VECTORS, AND 

f^Ij IS the number of PATTERNS FROM CAT I ♦ NUMBER 

OF PATTERNS FROM CATEGORY J 

THE DATA MATRIX U, USED FOR CALCULATING THE BOUNDARY BETWEEN THE 
CATEGORIES I AND J, IS FORMED AS FOLLOWS 

, ♦♦patterns from CATEGORY I TTERNS FROM CATEGORY J -*■** 

* •••• 


-1 


-X. 




U HAS NO ROWS AND NIJ COLUMNS ■ 


ENTRY POINT. 


CALL WEIGHT (U, DUMMY, WT ,NC,NIJ) 


INPUT ARGUMENTS. 

U 

DUMMY 

NO 

NIJ 

OUTPUT ARGUMENT. 
WT 


SUBPROGRAMS REQUIRED. 
MINV 

INTERNAL PARAMETERS. 
L.M 
0 

IROWW 
ID JO 
IROWWK 


WEIGHT O; 
WEIGHTl) 
SEPT 1972 WEIGHTO 

DEC 1973 WEIGHTO 

WEIGHTO^ 
WEIGHTO’ 
WEIGHTO, 
WEIGHTO 
WEIGHTO 
WEIGHTl 
WEIGHTl 
WEIGHTl 
WEIGHTl 
WEIGHT 1 
WEIGHTl 
WEIGHTl 
WEIGHT! 
WEIGHTl 
WEIGHTl 
WEIGHTS 
WEIGHT? 

I WEIGHT? 

-X .... -X WEIGHT? 

. . . WEIGHT? 

. , ..... WEIGHT? 

♦ ♦♦♦♦♦♦♦♦♦♦♦9 ♦'),'♦♦ 999 99 *9 »*♦ 9'^ El G'n T 2 

WEIGHT? 
WEIGHT? 
WEIGHT? 

weights 

WEIGHTS 
WEIGHTS 
T’TEIC-HTS 
WEIGHTS 
WEIGHT3 
AND J WEIG.HT3 
WEIGHTS 
WEIGHT? 

WEIGHT VECTOR DEFINING THE HYPERPLANE WEIGHT? 

WEIGHTL 
WEIGHTL 
WEICHT4 
WEIGHTL 
WEIGHTL 
WEIGHTL 
WEIGHTL 
WEIGHTL 
WEIGHTL 
WEIGHTS 


MATRIX CONTAINING PATTERNS OF 
CATEGORIES I AND J 
DUMMY ARRAY USED FOR MINV 
LENGTH OF PATTERN VECTORS IN U 
NUMBER OF PATTERNS FROM CAT I 


SEPARATING PATTERNS OF CAT I AND J 
MATRIX INVERSION PGM FROM IBM SSP 


SCRATCH ARRAYS USED BY MINV 
DETERMINANT OF DUMMY, FROM MINV 
ROW* OR COMPONENT, INDEX. FOR WT 
INDEX FOR A VECTOR IN DUMMY 
INDEX FOR A VECTOR IN DUMMY AFTER IT 
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GET THE WEIGHT VECTOR 


HAS BEEN INVERTED 3Y MINV 


SUBROUTINE WEIGHT (UtDUMHY»WTfNDfNIJ) 
0 1 MENS I G . U( 1> .DUMMY Cl> ,WT ( 100) 


DIMENSION L(130) ,M(100» 

C 

c 

00 15 10=1. NO 
00 15 J0=1,N0 
suM=o.n 

c 

00 14 K=l.NIJ 
inK=(K-l) '^ND + IO 
J0K=(K-1)*N0+J0 

C 

14 SUM=SUM+U (IDK) *U(J0<) 
I0JD=(J0-11*N0+iD 

C 

DUMMY (lOJO) =SUM 
15 CONTINUE 
C 

CALL MINV (DUMMY .NO.O.L. M) 

DO 30 K=1.N0 

SUM=0.0 

00 25 KK=1.NIJ 

C 

KK'<=('<K-l)*Nn + K 
25 SUM=SUM^-U (KKK) 

C 

30 U(K)=SUM' 

C 

C 

00 40 IR0WW=1.ND 

SUM=0.0 

00 35 K=l.NO 

IROWWK= (K-1 ) *ND+IROWM 
35 SUM=SUH + DUMMY(I50WW1<) *U(K) 

c 

40 WT (IROWW) =SUM 
RETURN 
END 


SET UP MATRIX 0UMMY=U»U* 

GO THRU EACH COMPONENT 

GO THRU EACH VECTOR 

FIND U*U* 

STORE IT IN DUMMY FOR INVERSION 
FIND THE INVERSE OF U*U* , 

COMPUTE U*T 

STORE IT IN U(K.l)»K=liNO 

COMPUTE THE WEIGHT VECTOR 
W (IROWW. NCOL) ,IR0WW=1, NO 

STORE |t in WT ARRAY ANO RETURN 


WEIGHT51 
WEIGHTS? I 

WEIGHT53 I 

WEIGHT54 I 
WEIGHT55 I 

WEIGHTSfo I 
WEIGHTS? 'I 
WEIGHTS*} I 
WEIGHTS9 i 
WEIGHTHQ 
WEIGHT61 I 
WFIGHTH2 I 
WEIGHT63 r 
WEIGHT64 I 
WEIGHT65 !! 

WEIGHT66 i 
WEIGHTS? i 
WElGHT6f3 ij 
WEIGHT69 I 
WEIGHT70 I 
WEIGHT71 I 
WEIGHT72 I 
WEIGHT 73 I 
WEIGHT74 I 

WiEIGHT75 
WEIGHT76 
WEIGnT77 I 

WEIGHT73 
WEIGHT 79 > 

WEIGHT 8 0 I 

WEIGHT31 I 

WEIGHT82 
WEIGHT83 I 

WEIGHT34 I 

WEIGHT8S I 

WEIGHT85 
WEIGHTS? I 

WEIGHT88 i 

WEIGHT39 I 

WElGriTOO 
WEIGHT91 I 

WEIGHT92 
WEIGHT93 
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Glossary and Index to Remotely Sensed Image 
Pattern Recognition Concepts* 

ROBERT M. HARALICKt 


Remote Sensing Laboratory, University of Kansas, Lawrence, Kansas 66045, U.S.A. 
{Received 29 March 1973 and in revised form 21 June 1973) 

AbslMcl— The purpose of the glossary is to state in the simplest possible way the general meaning or word usage 
for many of the terms in image pattern recognition. There is no intent to provide definitive statements for terms 
such as “resolution” but rather only statements about the general nature of what resolution is. There is no intent 
to provide mathematical formulas involving integrals or derivatives in any of the statements. Those who need 
the mathematics can get it from technical papers or texts. 

The glossary is designed to be read by those generally unfamiliar with the area and provide fo.r them an overall 
perspective. The organization approaches that of programmed learning material and can be smoothly (I hope) 
read from beginning to end. Those needing tb look up a specific term can do so via the index. 

There is some overlap of terms in this glossary with those glossaries or definitions in radiometry and aerial 
photography. There is no intent that the way the terms are described here replace the way they are described in 
those glossaries and definitions. The overlap is provided here so that the reader can get a perspective of a cluster 
of terms frequently used in our field. The perspective is intended to start from what the image concept is through 
the recording of an image by some sensor, the possible con version of image format and the simple analog or more 
complex digital processing which must be done on the imagery. In short, the perspective is one of image pattern 
recognition. 


1. An Image is a spatial representation of an object, scene, or another image. It can be 
real or virtual as in optics. In pattern recognition, image usually means a recorded image 
such as a photograph, map, or picture. It may be abstractly thought of as a continuous 
function I of two variables defined on some bounded region of a plane. When the image is 
a photograph, the range of the function / is the set of grey shades usually considered to be 
normalized to the interval [0, 1]. The grey shade located at spatial coordinate (x, y) is 
denoted by /(x, y) and is usuajly proportional to the radiant energy in the electromagnetic 
band to which the photographic sensor is sensitive. When the image is a map, the range 
of the function / is a set of symbols or colors, and the symbol or color located at spatial 
coordinate (x, y) is denoted by /(x, y). A recorded image may be in photographic, video 
signal, or digital format. 

2. The grey shade or grey tone is a number or value assigned to a position (x, y) on an 
image. The number is proportional to the integrated output, reflectance, or transmittance 
of a small area, uiiually called a resolutidn cell or pixel, centered on the position (x, y). The 

- grey shade can b| measured as or expressed in any one of the following ways: 


(1) transmittance 

{2) reflectance i ■ 

(3^ a coordinate of the ICI color coordinate system 

♦ The glossary was prepared as the report from the definitions and standards subcommittee. Automatic Image 
Pattern Recognition Committee of Electronic Industries Association. 

1 1 would like to acknowledge the helpful suggestions, comments and corrections which many of my colleagues 
made. Particular thanks are due to R. Asendorf, B. Bulluck, L. Kirvida, P. Pryor, A. Rbsenfeld, B. Scheps, 
R. Swoneer, S. Viglione and R. Zaputowyez. 
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(4) a coordinate of the tristimulus value color coordinate system 

(5) brightness 

(6) radiance 

(7) luminance 

(8) density 

(9) voltage 

(10) current. 

3. A photograph is a “hard copy” pictorial record of an image formed by a sensor. 
The photograph is usually recorded on some type of phososensitive emulsion. It can be 
either reflective, as is a paper print, or transmissive, as is a transparency. It is usually two- 
dimensional and its reflectance or transmittance, (either monochromatic or polychromatic) 
varies as a function of position. If it is a multi-colored image (polychromatic), it can be either 
natural color where the colors are similar to the original, or false color where the colors 
of the photograph are radically different from the original. The sensor used to form the 
image may be any type such as an optical camera with or without spectral filtration, infrared 
optical-mechanical scanners, TV systems, radars, or sonic sensors, etc. The type of sensor 
recording the image and spectral region the sensor is sensitive to, should always be indicated 
when referring to a photograph. 

4. A map is a representation, of physical and/or cultural features (natural, artificial or 
both) of a region (such as the sky) or a surface such as that of the earth or a planet. It 
indicates by a combination of symbols and colors those regions having designated category 
identifications. Very often ground truth and/or decision rule category assignments are 
displayed by maps. A photograph with limited symbolism and annotation is often called 
a photo-map. 

5. The radiant intensity of a point object is a measure of the radiant power per stetadian 
radiated or reflected by an object. In general, radiant intensity is a function of the nature of 
the object, the viewing angle, spectral wavelength and band-width. i 

6. The reflectance or reflection coefficient is the ratio of the energy per unit time per 
unit area (radiant power density) reflected by the object to the energy per unit time per unit 
area incident on the object. In general, reflectance is a function of the incident angle of the 
energy, viewing angle of the sensor, spectral wavelength and bandwidth, and the nature of 
the object. 

7. The transmittance or transmittance coefficient is the ratio of the energy per unit 
time per unit area (radiant power density) transmitted through the object to the energy 
per unit time per unit area incident on the object. In general, transmittance is a function of 
the incident angle of the energy, viewing angle of the sensor, spectral wavelength and band- 
width, and the nature of the object. 

8. The density of an (x, y) position on a photograph is a measure of the light absorbing 
capability of the silver or dye deposited on that position. It is defined by the logarithm of 
the position’s reciprocal transmittance. The density measured should be specified as to 
whether it is specular or diffuse. 

9. Densitometry is the field devoted to the measurement pf optical image densities on 
film or print grey shades usually caused by the absorption reflection of light by deve- 
loped photographic emulsion. 

10. A densitometer is a device used to measure the average image density of a small 
area of specified size on a photographic transparency or print. The nieasurement may be a 
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meter reading or an electronic signal. When the small area is smaller than a few hundred 
microns square, the instrument is called a micro-densitometer, 

11. The contrast for a point object against its background can be measured by: (1) its 
contrast ratio, which is the ratio between the higher of object transmittance or background 
transmittance to the lower of object transmittance or background transmittance; (2) its 
contrast difference, which is the difference between the higher density of object or back- 
ground to the lower density of object or background ; (3) its contrast modulation, which is 
the difference between the darker of object or background grey shade and the lighter of 
object or background grey shade divided by the sum of object grey shade and background 
grey shade. 

12. Resolution is a generic term which describes how well a system, process, component 
or material, or image can reproduce an isolated object or separate closely spaced objects 
or lines. The limiting resolution, resolution limit or spatial resolution is described in terms 
of the smallest dimension of the target or object that can just be discriminated or observed. 
Resolution may be a function of object contrast, spatial position as well as element shape 
(single point, number of points in a cluster, continuum, or line etc.). 

13. The resolving power of an imaging system, process, component or material is a 
measure of its ability to image closely spaced objects. The most common practice in 
measuring resolving power is to image a resolving power target composed of lines and 
spaces of equal width. Resolving power is Usually measured at the image plane in line pairs 
per millimeter, i.e. the greatest number of lines and spaces per millimeter that can just be 
recognized. This threshold is usually determined by using a series of targets of decreasing 
size and basing the measurement on the smallest one in which all lines can be counted. In 
measuring resolving power the nature of the target (number of lines and their aspect ratio), 
its contrast and the criteria for determining the limiting resolving power must be specified. 

14. Acutance is a measure of the sharpness of edges in a photograph or image. It is 
defined for any edge by the average squared rate of change of the density across the edge 
divided by the total density difference from one side of the edge to the other side of the edge. 

15. The spread function of an image system, process, component, or material describes 
the resulting spatial distribution of grey shade when the input to the system is some well 
defined object much smaller than the width of the spread function. If the input to the system 
is a line, the spread function is called the line spread function. If the input to the system is a 
point, the spread function is called the point spread function. 

16. The Modulation Transfer Function of an imaging system or component measures 
the spatial frequency modulation response of the system or component. As an imaging 
system or component processes or records an image, the contrast modulation of the 
processed or recorded image is different from the input image. In fact, there is always a 
spatial frequency beyond which the contrast modulation of the processed or recorded 
(output) image is smaller (worse) than the contrast modulation of the input image. The 
modulation transfer function can be thought of as a curve indicating, for each spatial 
frequency, the ratio of the contrast modulation of the output image to the contrast modula- 
tioh of the input image. It is formally defined as the magnitude of the Fourier transform of 
the line spread function of the imaging system or component. 

]'?. A resolution cell is the smallest most elementary areal constituent of grey shades 
considered by an investigator in an image. A resolution cell is referenced by its spatial 
coordinates. The resolution cell or formations of resolution cells can sometimes constitute 
the basic unit for pattern recognition of image format data. 
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18 A digital image, or digitized image, or digital picture function of an image is an 
image in digitaiformat’and is obtained by partitioning the area of the .mage into a fim^ 
two-dimensional array of small uniformly shaped mutually exclusive regions, called resol 
"on Si aXsisning a “repte^Wativa" gray ahada to aach such spatial region. A dtgtta 
imaga may ba abstractly thought of as a function whose domain is the Unite two-dimensional 

set of resolution cells and whose range is the set of grey shades. 

19. A picture element or pixel or pel is a pair whose first member is a resolution cell and 
whose second member is the grey shade assigned by the digkal image to that resolutmn 
cell. Sometimes picture element, pixel, or pel refer only to the grey shade or grey shad 

of images, each taken of the same subject at different times 
or from different positions, or with diff^ent sensors, or 

frequencies, or with different polarizations. Although there is a high de^ee of |o[orma on 
redVdancy between images in a multi-image set, each image usually has information 
not available in any one of or combinations of the other images m the set. 

21 A multi-digital image is a multi-image in digital form. It can be, for example, a se 
of digital images obtained from the images in a multi-image. A multi-digital image is often 
called a multi-image for short when it is understood from context that digital images are 

involved ^ seamier is a device used to rapidly convert image data from photo- 
graphic format to electronic video signal format. Normally, the scanner directs an electron 
beam across the face of a cathode ray tube (CRT) m a TV-like raster. The P^°‘°8raph>c 
transparency is placed in front of the CRT (either directly or through some optics) and the 
light Lming from the CRT is passed through it. The modulated light beam is detected by 
a photomultiplier or other photo detector and amplified to a usable video signal level. 

^ 23 A scanning densitometer is a device used to convert image data from transparency 
photographic tomat to clecttonic video signal format. Usually, the photogtaphto trans- 
parency is placed on a glass cylinder which rotates and slowly translates. A fine beam of 
light is focused on the transparency, passed through it, and is detected by a photo-multipher 
wliere it is amplified to a usable video signal. The scanning densitometer is a much s 
conversion device than the flying spot scanner. However, this disadvantage is compensated 

bv its fine resolution capability of a few microns. j v „ 

^ 24 The vidicon is an imaging vacuum tube having a photosensitive surface and is a 
means of converting image data from instantaneous radiance format to electronic video 
signal format. The scene being viewed is imaged on the photosensitive surface which _ ^ 
be^ scanned by an electron beam generating a signal whose amplitude corresponds to th 
radiant intensity focused on the surface at each point. This signal is called a video sign 

and may be amplified to any desired level. j- i 

25 A video image is an image in electronic signal format capable of being displayed on 
acathode ray tube screen. The video signal is generated from devices likea yidicon or flying 
spot scanner which converts an image from photographic form 

scanning it line by line. The video signal itself is a sequence of signals, the ith signal repre 

senting the ith line of the scanned image. , • i. , • 

26 Registering is the translation-rotation alignment process by which two images o. 
like geometries and of the same set of objects are positioned coincident with respect to one 
another so that corresponding elements of the same ground area appear in the same place 

( \ on the registered images. In this manner, the corresponding grey shades of the two images 
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at any (x,y) coordinate or resolution cell will represent the sensor output for the same 
object over the full image frame being registered, 

27. Congruencing is the process by which two images of a multi-image set are trans- 
formed so that the size and shape of any object on one image is the same as the size and 
shape of that object on the other image. In other words, when two images are congruenced, 
their geometries are the same and they coincide exactly. 

28. Rectifying is a process by which the geometry of an image area is made planimetric. 
For example, if the image is taken of an equally spaced rectangular grid pattern, then the 
rectified image will be an image of an equally spaced rectangular grid pattern. Rectification 
does not remove relief distortion. 

29. Change detection is the process by which two images may be compareds resolution 
cell by resolution cell, and an output generated whenever corresponding resolution cells 
have different enough grey shades or grey shade «-tuples. 

30. An optical color combiner is an instrument which produces “false” or “true” color 
images by linearly combining a few black and white transparencies of the same scene. The 
transparencies are usually obtained from multi-spectral, multi-band, or time-sequential 
photography. The transparencies are placed in projectors which are all focused and 
registered on the same screen and which have various color filters placed in front of their 
lenses. The viewing brightness of the projector’s lamp in each projector can be changed 
independently thereby changing chromaticity balance. An optical color combiner is some- 
times called an additive color display. 

31. An electronic color combiner is an instrument which produces a “false” color 
image by linearly combining video signals of images of the same scenes. The images are 
usually obtained from multi-spectral, multi-band, or time-sequential photography. If the 
original image format is photographic, then the image format is changed from photographic 
to video signal format by synchronized vidicons of flying spot scanners. The resulting 
video signals are linearly combined through a matrix multiplier circuit, and the three 
linearly combined signals then drive the color gun of a color TV tube. An electronic color 
combiner usually has greater versatility for congruencing or registering than an optical 
color combiner. 

32. Level slicing or density slicing or thresholding is an operation performed by an 
instrument (usually electronic) called a level sheer to change one or more a grey scale 
images to one binary image. 

33. The level sheer, density sheer or thresholder is an instrument (usually electronic) 
which takes a single or multi-image as an input and produces a binary image for an output. 
A binary “one” is produced on the output image whenever the grey shades on each of 
the input images lie within the independently set minimum and maximum thresholds. 
A set of N input images would, therefore, require a setting N minimum and N maximum 
levels. 

34. A figure F, or a subimage F in a continuous or digital image I is any function F 

whose domain is some subset A of the set of spatial coordinates or resolution cells, whose 
rangb is the set G of grey shades, and which is defined by F{x, y)= I{x, y) for any (x, y) 
belonging to A. o . 

35. A figure F is connected if there is a path between any two spatial coordinates or 

resolution cplls contained in the domain of F. More precisely, F is connected if for each 
pair of spatial coordinates (x, y) and (m, v) belonging to the domain of F , there exists some 
sequence <(a,, hi), (nz.^^z). of spaUal coordinates belonging to the domain 
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of F such that (x,y)=(ai,bi),{u,v)={a„,b„), and (fli.h,) and (a, + ,,6,+,) are sufficiently 
dose neighboring coordinates, i = 1 , 2, , . , , w — 1 . 

36. A figure F is convex if the domain of F contains the line segment which joins any 
pair of spatial coordinates in the domain of F. 

37. A discrete tonal feature on a continuous or digital image is a connected set of 
spatial coordinates or resolution cells all of which have the same or almost the sam? grey 
shade. 

38. Texture is concerned with the spatial distribution of the grey shades and discrete 
tonal features. When a small area of the image has little Variation of discrete tonal features, 
the dominant property of that area is grey shade. When a small area has wide variation of 
discrete tonal features, the dominant property of that area is texture. There are three things 
crucial in this distinction ; (I) the size of the small areas, (2) the relative sizes of the discrete 
tonal features, and (3) the number of distinguishable discrete tonal features. 

39. Quantizing is the process by which each grey shade in an image of photographic, 
video, or digital format is assigned a new value from a given finite set of grey shade values. 
There are three often used methods of quantizing: 

(1) in equal interval quantizing or linear quantizing, the range of grey shades from 
maximum grey shade to minimum grey shade is divided into contiguous intervals each 
of equal length, and each grey shade is assigned to the quantized class which corresponds 
to the interval within which it lies; 

(2) in equal probability quantizing, the range of grey shades is divided into contiguous 
intervals such that after the grey shades are assigned to their quantized class there is an 
equal frequency of occurrence for each quantized grey shade in the quantized digital 
image or photograph; equal probability quantizing is sometimes called central 
stretching', 

(3) in minimum variance quantizing, the range of grey shades is divided into contiguous 
intervals such that the weighted sum of the variance of the quantized intervals is 
minimized. The weights are usually chosen to be the grey shade interval probabilities 
which are computed as the proportional area on the photograph or digital image 
which have grey shades in the given interval, 

40. A quantizer is an instrument which does quantizing. The quantizer has three 
functional parts. The first part allows the determining and/or setting of the quantizing 
intervals, the second part is a level sheer which indicates when a signal is in any quantizing 
interval, and the third part takes the binary output from the level sheers and either codes it 
to some binary code or converts it to some analog signal representing quantizing interval 
centers or means. 

41. The simplest and most practical unit to observe and measure in the pattern recogni- 
tion of image data is often the basic picture element (the grey shade or the grey shade 
n-tuple in its particular resolution cell). This is what makes pattern recognition so hard some- 
times for the objects requiring analysis or identification are not simple picture elements but 
are often complex spatial formations of picture elements such as houses, roads, forest, etc. 

42. A measurement n-tuple or measurement pattern or pattern or measurement vector is 
the ordered n-tuple of measurements obtained of a unit under observation. Each component 
of the n-tuple is a measurement of a particular quality, property, feature, or characteristic 
of the unit. In image pattern recognition, the units are usually picture elements or simple 
formations of picture elements and the measurement n-tuples are the corresponding grey 
shades, grey shade n-tuples, or formations of grey shade n-tuples. 
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43. The range set Ri for the ith sensor which produces the ith image in the multi- 
image set, is the set of all measurements which can be produced by the /th sensor. Simply, 
it is the set of all grey shades which could possibly exist on the /th image. 

44. The Cartesian product of two sets A and B, denoted by Ax B, is the set of all ordered 
pairs where the first component of the pair is some element from the first set and the 
second component of the pair is some element from the second set. The Cartesian product 
of N sets can be inductively defined in the usual fashion. 

45. Measurement space is a set large enough to include in it the set of all possible 
measurement n-tuples which could be obtained by observing physical attributes of some 
set of units. When the units are single resolution cells or picture elements, measurement 
space M is the Cartesian product of the range sets of the sensors ; M = Ri x R 2 X’ ■ - x R„. 

46. Each unit is assumed to be of one and only one given type. The set of types is 
called the set of pattern classes or categories C, each type being a particular category. The 
categories are chosen specifically by the investigator as being the ones of interest to him. 

47. A feature or feature pattern or feature n-tuple or pattern feature is a n-tuple or 
vector with (a small number of) components which are functions of the initial measurement 
pattern variables or some subsequence of the measurement n-tuples. Feature n-tuples or 
vectors are designed to coiijiiin a high amount of information relative to the discrimination 
between units of the types of categories in the given category set. Sometimes the features are 
predetermined and other times they are determined at the time the pattern discrimination 
problem is being solved. In image pattern recognition, features often contain information 
relative to grey shade, texture, shape or context. 

48. Feature space is the set of all possible feature «-tuples. 

49. Feature selection is the process by which the features to be used in the pattern 
recognition problem are determined. Sometimes feature selection is called property 
selection. 

50. Feature extraction is the process in which an initial measurement pattern or some 
subsequence of measurement patterns is transformed to a new pattern feature. Sometimes 
feature extraction is called property extraction. 

51. The word pattern can be used in three distinct senses : ^ 

(1) as measurement pattern ; 

(2) as feature pattern ; and 

(3) as the dependency pattern or patterns of relationships among the components of ■ 

any measurement n-tuple or feature n-tuple derived from units of a particular category 

and which are unique to those n-tuples, that is, they are dependencies which do not 

occur in any other category. 

52. A signature is the observable or characteristic measurement or feature pattern 
derived from units of a particular category, A category is said to have a signature only if 
the characteristic pattern is highly representative of the n-tuples obtained from units of 
that category. Sometimes a signature is called a prototype pattern. 

53. A data sequence S^=(_di,d 2 , ... ,dj} is a sequence of patterns derived from the 
measurement patterns or features of some sequence of observed units, dj is the- pattern 
associated with the first unit; dj is the pattern associated with the second unit; and dj is 
the pattern associated with the dth unit. 

54. A decision rule f usually assigns one and only one category to each observed unit 
on the basis of the sequence of measurement patterns in the data sequence Sj or in the 
corresponding .sequence of feature patterns. 
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55. A simple decision rule is a decision rule which assigns a Jo a category solely on 
the basis of the measurements or features associated with the unit. Hence, the ““ts 
treated independently and the decision rule/ may be thought of as a 
one and only one category to each pattern in measurement space or to each feature in 

feature , ^ ^^ich assigns a unit to a category on the 

basis of some non-trivial subsequence of measurement patterns in the data sequence or 

ofW pauen,,. Acompound d=ds» rule .s po,a simple 

“t Pto4ion can be made fo, the decision rnle to ,e,em judgement or to de/er assign- 
went if the pattern is too close to the category boundary in measurement or feature 
With this provision, a deferred assignment is an assignment to the category of reserved 

wry identification sequence or ground truth S, = <c„ . . c,> is a sequence 

of category iLntifications obtained from some sequence of observed units. Ci is the 
category idLtification of the first unit ; Ca is the category identification of the second uni , 

and c. is the category identification of the Jth unit. ^ 

59 A training sequence is a set of two sequences ; (1) the data sequence and (2) a corres- 
oondL caterry identification sequence (sometimes called ground truth). The training 
sequence is used to estimate the category conditional probability distributions fromiWhich 

the decision rde^^^^^^ probabi7i£y of a measurement or feature «-tuple d given ^ 

is denoted by PId), or by P{d/c), and is defined as the relative frequency or proportion 
times the n-tuple d is derived from a unit whose true category identification is c. 

61 A distribution-free or non-parametric decision rule is one which makes no assump- 
tiom^about the functional form of the conditional probability distribution of the patterns 

^ll'^rStma.imum likelihood decision rule is one; which f 

dently and assigns a unit u having pattern measurement or features d to ^ 

those units are most.probable to have given rise to pattern or feature vector d, that is, such 

that the conditional probability of d given c, Pdd), is highest. , , j • 

^ 63^ A simple Bayes decision rule is one which treats the units independently and assigns 
a unit u havint "pattern measurements or features d to the category c whose conditional 

r; 

a 

unit u of u^nown identification and with pattern measurements or features ^ Jo ^^egory 
c wheS d. is that pattern closest to d by some given metric or distance function. ^ 

' 65. A discriminant function Md) is a scalar function, whose domain « «sua^ly measure- 
ment space and whose range is usually the real numbers. When/(d) Md), k^i, A • v . 
then the decision rule assigns the ith category to the unit giving rise to pattern d. 

66. A linear discriminant function /is a discriminant functioii of the form 


n 

f^d)=b+ Yt where d= (5 1 ,^ 2 , 
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67. A decision boundary between the ith and kth categories is a subset H of patterns in 
measurement space M defined by 

H = {deM\Md) = Md)}, 

where/- and / are the discriminant functions for the /th and kth categories. 

68. A hyperplane decision boundary is the special name given to decision boundi/ries 

arising from the use of linear discriminant functions. * 

69. A linear decision rule is a simple decision rule which usually treats the units inde- 
pendently and makes the category assignments using linear discriminant functions. The 
decision boundaries obtained from linear decision rules are hyperplanes. 

70. The pattern discrimination problem is concerned with how to construct the decision 
rule which assigns a unit to a particular category on the basis of the measurement pattern(s) 
in the data sequence or on the basis of the feature pattern(s) in the data sequence. 

71. Pattern identification is the process in which a decision rule is applied. If 

' ^ 2 , . . . , is the sequence of units to be observed and identified, and if 
. . . ,dj'y is the corresponding data sequence of patterns, then the pattern 
identification process produces a category ideiitification sequence S, = <c,,C 2 ,...,Cj> 
where c, is the category in C to which the decision rule assigns unit on the basis of the 
J patterns in In general, each category in S, can be assigned by the decision rule as 
a function of all the patterns in S^. Sometimes pattern identification is called '‘pattern 
classification” or “classification". 

72. A clmter, is a homogeneous group of units which are very “like” one another. 
Likeness” between units is usually determined by the association, similarity, or distance 

between the measurement patterns associated with the units. 

73. A cluster assignment function is a function which assigns each observed unit to a 
cluster on the basis of the measurement patterr.{s) in the data sequence or on the basis of 
their corresponding features. Sometimes ihe units /are treated independently; in this case 
the clustering assignment function can be c6c.side‘red as a transformation from measure- 
ment space to the set of clusters. 

74. The pattern classification problem is concerned with constructing the cluster 
assignment function which groups similar units.. Pattern classification is synonymous with 
numerical taxonomy ot clustering. 

75. The cluster identification process is the process in which the cluster assignment 
function is applied to the sequence of observed units thereby yielding a cluster identification 
sequence. 

76. A misidentification, or misdetection, or type I error occurs for category e,- if a unit 
whose true category identification is Cj is assigned by the decision rule to category c^, 
fc # i. A misidentification error is often called an error o/ omission. 

77. A false identification, or false alarm, or type II error occurs for category c,- if a unit 
whose true category identification is c^,k^ i, is assigned by the decision rule to category Cj . 
A false identification error is often called an error of commission. 

78. A prediction sequence, or test sequence, or a generalization sequence is a set of two 
sequences : (1) a data sequence (whose corresponding true category identification sequence 
may be considered to be unknown to the decision rule) and (2) a corresponding category 
identification sequence determined by the decision rule assignment. By comparing the 
category identification sequence determined by the decision rule assignment with the 
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category identification sequence determined by the ground truth, the misidentification 
rate and the false identification rate for each category may be estimated. 

79. A confusion matrix or contingency table is an array of probabilities whose rows 
and columns are both similarly designated by category label and which indicates the 
probability of correct identification for each category as well as the probability of type 1 
and type II errors. The (ith, kth) element is the probability that a unit has true category 
identification c,-; and is assigned by the decision rule to category c^. 

80. A unit is said to be detected if the decision rule is able to assign it as belonging only 
to some given subset A of categories from the set C of categories. To detect a unit does not 
imply that the decision rule is able to identify the unit as specifically belonging to one 
particular category. 

81. A unit is said to be recognized, identified, classified, categorized or sorted if the 
decision rule is able to assign it to some category from the set of given categories. In military 
applications, there is a definite distinction between recognize and identify. Here, for a unit 
to be recognized, the decision rule must be able to assign it to a type of category, the type 
having included within it many subcategories. For a unit to be identified, the decision rule 
must be able to assign it not only to a type of category but also to the subcategory of the 
category type. For example, a small area ground patch may be recognized as containing 
trees, which may be specifically identified as apple trees. 

82. A unit is said to be located if specific coordinates can be given for the units physical 
location. 

83. A unit is said to be acquired if it can be located and recognized. 

84. A target is one type of category used in the pattern recognition of image data. It 
usually occupies some relatively small area on the image and has a unique or characteristic 
set of attributes. It has a high a pnoW interest to the investigator, 

85. Target discrimination is the process by which decision rules for targets (small area 
extensive categories) are constructed. 

86. Target identification or target recognition is the process by which targets contained 
within image data are identified by means of a decision rule. 

87. An image transformation is a function or operator which takes an image for its 
input and produces an image for its output. The domain of the transform operator is often 
called the spatial domain. The range of the transform operator is often called the trans- 
formed domain. Some transformations have spatial and transform domains of entirely 
different character. For these transforms, the image in the spatial domain may appear 
entirely different from and have a different interpretation from the image in the transformed 
domain. Specific examples of these kinds of transformations are the Fourier, Hadamard, 
and Karhunen-Loeve transformations. Other transformations have spatial and transform 
domain of similar character. For these transformations, the image in the transformed 
domain may appear similar to the image of the spatial domain. These types of trans- 
formations are often called spatial filters. 

88. A spatial filter is an image transformation, usually a one-one operator used to 
lessen noise or enhance certain characteristics of the image. For any particular (x, y) coordi- 
nate on the transformed image, the spatial filter assigns a grey shade on the basis of the 
grey shades of a particular sjiatial pattern near the coordinates (x^ y). 

89. A linear spatial filter is a spatial filter for which the grey shade assignment at 
coordinates (x, y) in the transformed image is made by some weighted average (linear 
combination) of grey shades located in a particular spatial pattern around coordinates 
(x,y) of the domain image. The linear spatial filter is often used to change the spatial 
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frequency characteristics of the image. For example, a linear spatial filter which emphasizes 
high spatial frequencies will tend to sharpen the edges in an image. A linear spatial filter 
which emphasizes the low spatial frequencies will tend to blur the image and reduce salt 
and pepper noise. 

90. Template matching is an operation which can be used to find out how well two 
photographs or images match one another. The degree of matching is often determined by 
cross-correlating the two images or by evaluating the sum of the squared corresponding 
grey shade differences. Template matching can also be used to best match a measurement 
pattern with a prototype pattern. 

91. Matched filtering is a template matching operation done by using the magnitude 
Of the cross-correlation function to measure the degree of matching. 

92. In pattern recognition problems such as target discrimination, for which the 
category of interest is some specific formation of resolution cells with characteristic shape 
or tone-texture composition, the problem of pattern segmentation may occur. Pattern 
segmentation is the problem of determining which regions or areas in the image constitute 
the patterns of interest, i.e. which resolution cells should be included and which excluded 
from the pattern measurements. 

93. Screening is the operation of separating the uninteresting photographs or images 
from those photographs containing areas of potential interest. 

94. Preprocessing is an operation applied before pattern identification is performed. 
Preprocessing produces, for the categories of interest, pattern features which tend to be 
invariant under changes such as translation, rotation, scale, illumination levels, and noise. 
In essence, preprocessing converts the measurements patterns to a form which allows a 
simplification in the decision rule. Preprocessing can bring into rfcgistration, bring into 
congruence, remove noise, enhance images, segment target patterns, detect, center, and 
normalize targets of interest. 

95. Image compression is an operation which preserves all or most of the information 
in the image and which reduces the amount of memory needed to store an image or the 
time needed to transmit an image. 

96. Image restoration is a process by which a degraded image is restored to its original 
condition. Image restoration is possible only to the extent that the degradation transform 
is mathematically invertible. 

97. Image enhancement is any one of a group of operations which improve the detecta- 
bility of the targets or categories. These operations include, but are not limited to, contrast 
improvement, edge enhancement, spatial filtering, noise suppression, image smoothing, 
and image sharpening. 

98. Image processing encompasses all the various operations which can be applied to 
photographic or image data- These include, but are not limited to, image compression, 
image restoration, image enhancement, preprocessing, quantization, spatial filtering, and 
other image pattern recognition techniques, 

99. Interactive Image Processing refers to .the use of an operator or analyst at a console 
with a means of assessing, preprocessing, feature extracting, classifying, identifying and 
displaying the original imagery or the processed imagery for his subjective evaluation and 
further interactions. 

100. Pattern recognition is concerned with, but not limited to, problems of: (1) pattern 
discrimination, (2) pattern classification, (3) feature selection, (4) pattern identification, 
(5) cluster identification, (6) feature extraction, (7) preprocessing, (8) filtering, (9) enhance- 
ment, (10) pattern segmentation, or (11) screening. 
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INDEX TO GLOSSARY OF REMOTELY SENSED IMAGE 
PATTERN RECOGNITION CONCEPTS ' 


Actuance 

Acquire 

Additive color display 

Bayes decision rule 

Category 

Categorize 

Category identification sequence 

Cartesian product 

Change detection 

Classification 

Classify 

Cluster 

Cluster assignment function 
Cluster identification 
Clustering 

Compound decision rule 
Conditional probability 
Confusion matrix 
Congruencing 
Connectedness 
Contingency table 
Contrast 

Contrast difference 
CoiiWast modulation 
ConVast ratio 
Contrast stretching 
Convex 

tl . 

•V 

Data sequence 
Decision boundary 
Decision rule 
Defer assignment 
Densitometer 
Densitometry 
Density 
Density sheer 
Density slicing 
Detect 

Digital image 
Digital picture function 
Digitized image 
Discrete tonal feature 


14 

83 

30 

63 

46 

81 

58 

44 

29 

71 
81 

72 

73 
75 

74 


57 

10 

9 

8 

33 

32 

80 

18 

18 

18 

37 


Discriminant function 
Distribution-free decision rule 

Electronic color combiner 
Equal interval quantizing 
Equal probability quantizing 
Error of commission 
Error of omission 

False alarm 
False identification 
Feature 

Feature extraction . 

Feature M-tuple ' 

Feature pattern 
Feature selection 
Feature space 


Level sheer 
Level slicing 
Limiting resolution 
Line spread function 
Linear decision rule 
Linear discriminant function 
Linear spatial filter 
Linear quantizing 
Locate 

Map 


65 

61 

31 

39 

39 

77 

76 

77 
77 
47 
50 

'47 

47 
49 

48 
34 


56 

Flying spot scanner 

22 

60 

79 

27 

Generalization sequence 

78 

Grey shade 

2 

35 

Grey tone 

2 

79 

Ground truth 

58 

11 

11 

Hyperplane decision boundary 

68 

11 

Identify 

81 

1 

11 

Image 

39 

Image compression 

95 

36 

Image enhancement 
Image processing 

97 

98 

' 53 ^0 

Image restoration 

96 

67 

Image transformation 

87 

54 

Interactive image processing 

99 


33 

32 

12 

15 

69 

66 

89 

39 

82 
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Matched filtering 

91 

Maximum likelihood decision rule 

62. 

Measurement «-tuple 

42 

Measurement pattern 

42 

Measurement space 

45 

Measurement vector 

42 

Micro-densitometer 

10 

Minimum variance quantizing 

39 

Misdetection 

76 

Misidentification 

76 

Modulation transfer function 

16 

Multi-digital image 

21 

Multi-image 

20 

Nearest neighbor decision rule 

64 

Non-parametric decision rule 

61 

Numerical taxonomy 

74 

Optical color combiner 

30 

Pattern 

42, 51 

Pattern class 

46 

Pattern classification 

71,74 

Pattern discrimination 

70 

Pattern feature 

47 

Pattern identification 

71 

Pattern recognition 

100 

Pattern segmentation 

92 

Pel 

19 

Photograph 

3 

Photomap 

4 

Picture element 

19 

Pixel 

19 

Point spread function 

15 

Prediction sequence 

78, 

Preprocessing 

94 

Property extraction 

50l 

Pijoperty selection 

491 

Pijototype pattern 

52 

Quantizer 

40 

Quantizing 

39 

Radiant intensity 

5 

Range set 

43 


Recognize 

81 

Rectifying 

28 

Reflectance 

6 

Reflection coefficient 

6 

Registering 

26 

Reserve judgement 

57 

Resolution 

12 

Resolution cell 

17 

Resolution limit 

12 

Resolving power 

13 

Scanning densitometer 

23 

Screening 

93 

Segmentation 

92 

, Signature 

52 

Simple decision rule 

55 

Sort 

81 

Spatial filter 

88 

Spatial resolution 

12 

Spread function 

15 

Subimage 

34 

-target 

84 

Target discrimination 

85 

Target identification 

86 

Target recognition 

86 

Template matching 

90 

Test sequence 

78 

Texture 

38 

Thresholder 

33 

Thresholding 

32 

Training sequence 

59 

Transmittance 

7 

Transmittance coefficient 

7 

Type 1 error 

76 

Type II error 

' \ i"' 

Unit / 

77 

41; 

■ ’ ! 

Video image 

25 

Video signal 

24 

Vidicon 

24 
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